sig
  type ('a, 'b) t
  val create : ?random:bool -> int -> ('a, 'b) Fcl_data.Hashtbl.t
  val get : ('a, 'b) Fcl_data.Hashtbl.t -> ('a, 'b) Hashtbl.t
  val add : ('a, 'b) Fcl_data.Hashtbl.t -> '-> '-> unit
  val find : ('a, 'b) Fcl_data.Hashtbl.t -> '-> 'b
  val mem : ('a, 'b) Fcl_data.Hashtbl.t -> '-> bool
  val remove : ('a, 'b) Fcl_data.Hashtbl.t -> '-> unit
  val replace : ('a, 'b) Fcl_data.Hashtbl.t -> '-> '-> unit
  val iter : ('-> '-> unit) -> ('a, 'b) Fcl_data.Hashtbl.t -> unit
  val fold :
    ('-> '-> '-> 'c) -> ('a, 'b) Fcl_data.Hashtbl.t -> '-> 'c
end