sig
  type t
  val create : ?size:int -> unit -> CCHet.Tbl.t
  val mem : CCHet.Tbl.t -> 'a CCHet.Key.t -> bool
  val add : CCHet.Tbl.t -> 'a CCHet.Key.t -> 'a -> unit
  val length : CCHet.Tbl.t -> int
  val find : CCHet.Tbl.t -> 'a CCHet.Key.t -> 'a option
  val find_exn : CCHet.Tbl.t -> 'a CCHet.Key.t -> 'a
  val iter : (CCHet.pair -> unit) -> CCHet.Tbl.t -> unit
  val to_seq : CCHet.Tbl.t -> CCHet.pair CCHet.sequence
  val of_seq : CCHet.pair CCHet.sequence -> CCHet.Tbl.t
  val add_seq : CCHet.Tbl.t -> CCHet.pair CCHet.sequence -> unit
  val add_list : CCHet.Tbl.t -> CCHet.pair list -> unit
  val of_list : CCHet.pair list -> CCHet.Tbl.t
  val to_list : CCHet.Tbl.t -> CCHet.pair list
end