let iter (f : '-> unit)  (s : 'e hashset) : unit =
  Hashtbl.iter (fun x _ -> f x) s