type t
= time
val seconds : int ‑> t
val hours : int ‑> t
val minutes : int ‑> t
val days : int ‑> t
val weeks : int ‑> t
val now : unit ‑> t
val (++) : t ‑> t ‑> t
val pp : t printer