sub clock {
    my $minutes = shift;
    my $sign = ($minutes >= 0);
    my $hh = int($minutes/60);
    my $rest = abs($minutes - $hh*60);
    return sprintf ("%s%d:%02d", ($sign ? '' : '-'), $hh, $rest);
}