let from_list (s : 'e list) : 'e hashset = let res = create (List.length s) in List.iter (fun x -> add res x) s; res