module type ASSOC =sig..end
type ('a, 'b) t
val create : unit -> ('a, 'b) tval clear : ('a, 'b) t -> unitval get_assoc : ('a, 'b) t -> 'a -> 'bval update_assoc : ('a, 'b) t -> 'a -> 'b -> unitval remove_assoc : ('a, 'b) t -> 'a -> unitval assoc_to_keys : ('a, 'b) t -> 'a listval assoc_to_list : ('a, 'b) t -> 'b listval assoc_size : ('a, 'b) t -> intval filter : ('a, 'b) t -> ('a * 'b -> bool) -> ('a * 'b) list