sig
  type tbl
  val create : int -> Bi_share.Rd.tbl
  val clear : Bi_share.Rd.tbl -> unit
  val put : Bi_share.Rd.tbl -> int * Bi_share.type_id -> Obj.t -> unit
  val get : Bi_share.Rd.tbl -> int * Bi_share.type_id -> Obj.t
end