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