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