let time_to_string (tim:Unix.tm) = 
  Printf.sprintf "%d:%02d" (tim.Unix.tm_hour) (tim.Unix.tm_min)