let load_report f =
  try read_xml_file report_of_xml f
  with
    Xml.File_not_found _ ->
      { rep_header = "" ;
        rep_params = [] ;
        rep_eles = [] ;
      }
  | Bad_format xml ->
      let s = Rep_misc.chop_n_char 120 (Xml.to_string xml) in
      failwith (Rep_messages.bad_format s)