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