let run_on_file f path = let ch = open_in path in try while true do f (input_line ch) done with End_of_file -> ()