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