let choose (s: 'e hashset) : 'e = let thelist = filter (fun x -> true) s in try List.hd thelist with _ -> raise EmptySet