sig

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