let eval_file path =
  epf "{Evaluating file `%s'}\n%!" path; run_on_file eval path