let uniq (l:'a list) : ('a list) = let n = List.length l in let hs = make ~size:(n*3) () in uniq hs l