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