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