let input_file_into_hpr (hpr:string -> unit) (filename:string) =
let in_chan = open_in filename in
let rec copy () =
let line = input_line in_chan in
hpr (Printf.sprintf "%s\n" line);
copy() in
try copy() with End_of_file -> ()