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