let find_exn xs ~f = match find xs ~f with
| Some x -> x
| None -> raise Not_found