let store_report f r =
  let oc = open_out f in
  output_string oc (Xml.to_string (xml_of_report r));
  close_out oc