let find xs ~f = find_map xs ~f:(fun x -> if f x then Some x else None)