let to_list (s : 'e hashset) : 'e list =
  filter (fun _ -> true) s