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