sig
  type ('k, 'd) t
  val make : unit -> ('k, 'd) Ephemeron.Kn.Bucket.t
  val add : ('k, 'd) Ephemeron.Kn.Bucket.t -> 'k array -> 'd -> unit
  val remove : ('k, 'd) Ephemeron.Kn.Bucket.t -> 'k array -> unit
  val find : ('k, 'd) Ephemeron.Kn.Bucket.t -> 'k array -> 'd option
  val length : ('k, 'd) Ephemeron.Kn.Bucket.t -> int
  val clear : ('k, 'd) Ephemeron.Kn.Bucket.t -> unit
end