let find mode filenames options action = let status = { (parse_options options) with handler = handler mode; action = hide_exn action } in reveal_exn (List.iter (find_entry status)) filenames