sig
  type data
  type t
  val create : int -> Datatype.Sub_caml_weak_hashtbl.t
  val add :
    Datatype.Sub_caml_weak_hashtbl.t ->
    Datatype.Sub_caml_weak_hashtbl.data -> unit
end