let exists2 find p rs =
  try Some (find p rs) with Not_found -> None