let
now () = snd (
Time
.to_local_date_ofday (
Time
.now ()))