sig
  type t
  val create : unit -> CCTimer.t
  val set_exn_handler : CCTimer.t -> (exn -> unit) -> unit
  exception Stopped
  val after : CCTimer.t -> float -> f:(unit -> 'a) -> unit
  val at : CCTimer.t -> float -> f:(unit -> 'a) -> unit
  exception ExitEvery
  val every : ?delay:float -> CCTimer.t -> float -> f:(unit -> 'a) -> unit
  val stop : CCTimer.t -> unit
  val active : CCTimer.t -> bool
end