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