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 -> ()