let file_line_exists filename pred =
  try
    (iter_file_lines filename
       (fun line -> if pred line then raise Exists else ());
     false)
  with | Exists -> true