method save () = match filename with None -> self#save_as () | Some f -> let report = self#build_report () in Rep_io.store_report f report