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