sig
  val print_date : bool Batteries.ref
  type t = private float
  type outer_t = float
  val to_string : t -> string
  val print : Batteries.Format.formatter -> t -> unit
  val o : outer_t -> t
  val add : t -> Clock.Interval.t -> t
  val sub : t -> t -> Clock.Interval.t
  val wall_clock : unit -> t
  val to_ints : t -> int * int
end