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