let of_list (l:'a list) : 'a t = let n = List.length l in let size = if n<(default_size/2) then default_size else n*2 in let hs = make ~size () in (List.iter (add hs) l); hs