module type S =sig..end
type key
type 'a t
val empty : 'a tval add : key -> 'a -> 'a t -> 'a tval find : key -> 'a t -> 'aval remove : key -> 'a t -> 'a tval mem : key -> 'a t -> boolval iter : (key -> 'a -> unit) -> 'a t -> unitval map : ('a -> 'b) -> 'a t -> 'b tval mapi : (key -> 'a -> 'b) -> 'a t -> 'b tval fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b