module Bucket:sig..end
type ('k, 'd) t
桶是一个可变的“列表”，包含多个短暂对象。
val make : unit -> ('k, 'd) t创建一个新的桶。
val add : ('k, 'd) t -> 'k -> 'd -> unit将一个短暂对象添加到桶中。
val remove : ('k, 'd) t -> 'k -> unitremove b k 从 b 中移除最近添加的键为 k 的短暂对象，如果不存在这样的短暂对象，则不做任何操作。
val find : ('k, 'd) t -> 'k -> 'd option返回最近添加的键为给定值的短暂对象的数据，如果不存在这样的短暂对象，则返回 None。
val length : ('k, 'd) t -> int返回桶长度的上限。
val clear : ('k, 'd) t -> unit从桶中移除所有短暂对象。