`sig type key type t val create : int -> BatHashcons.Table.t val clear : BatHashcons.Table.t -> unit val hashcons : BatHashcons.Table.t -> BatHashcons.Table.key -> BatHashcons.Table.key BatHashcons.hobj val iter : (BatHashcons.Table.key BatHashcons.hobj -> unit) -> BatHashcons.Table.t -> unit val fold : (BatHashcons.Table.key BatHashcons.hobj -> 'a -> 'a) -> BatHashcons.Table.t -> 'a -> 'a val count : BatHashcons.Table.t -> int end`