module Time: sig .. end
sig
end
type time
val epoch : time
time
val now : unit -> time
unit -> time
val since : time -> float
time -> float
since t ()
t