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
end