sig
  type 'a t = 'Biocaml_accu.counter
  val create : ?n:int -> unit -> 'Biocaml_accu.Counter.t
  val add : 'Biocaml_accu.counter -> '-> int -> unit
  val tick : 'Biocaml_accu.counter -> '-> unit
end