sig
  type t
  val counter : string -> Stats.t
  val incr : ?n:int -> Stats.t -> unit
  val get : string -> int
  val count_calls : string -> ('a -> 'b) -> 'a -> 'b
  val print : Format.formatter -> unit
  val reset : unit -> unit
end