let of_list ?size:(size=default_size) alist = let h : ('a,'b) t = new hashmultimap ~size () in ignore (List.map (fun (key, datum) -> h#add key datum) alist); h