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