sig
  type t
  val create : ?enabled:bool -> string -> Common.Util.Timer.t
  val enable : Common.Util.label -> unit
  val pp_timer : Format.formatter -> Common.Util.Timer.t -> unit
  val dump : Format.formatter -> unit -> unit
  val start : Common.Util.Timer.t -> unit
  val stop : Common.Util.Timer.t -> '-> 'a
  val available : unit -> Common.Util.label list
end