let exists xs ~f = match find xs ~f with
| Some _ -> true
| None -> false