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