Wp.RformatSourceget_time T t returns k such that T[k-1] <= t <= T[k], T is extended with T[-1]=0 and T[N]=+oo.
Pretty print time in hour, minutes, seconds, or milliseconds, as appropriate
val pretty :
(Format.formatter -> string -> string -> unit) ->
Format.formatter ->
string ->
unit