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