Make.Time
val now : unit -> float
now () is the current UNIX epoch time in seconds.
now ()
val sleep : float -> unit Lwt.t
sleep sec activates after sec seconds have elapsed.
sleep sec
sec