module Tag:sig
..end
module WeakHash:sig
..end
type
t
val create : ?size:bool ->
?count:bool ->
?fct_size:(WeakHash.t -> Stdlib.Int64.t) ->
?period:int -> string -> t
val kill : t -> unit
val set_period : t -> int -> unit
val mark : t -> 'a -> 'a