sig
type t = Maki.time
val seconds : int -> Maki.Time.t
val hours : int -> Maki.Time.t
val minutes : int -> Maki.Time.t
val days : int -> Maki.Time.t
val now : unit -> Maki.Time.t
val ( ++ ) : Maki.Time.t -> Maki.Time.t -> Maki.Time.t
end