         best (if (= (type psr-best) clojush.individual.individual)
                psr-best
                err-fn-best)]
-    (println "--- Best Program Statistics ---")
+    (println (format "--- Best Program (%s) Statistics ---" (str "based on " (name err-fn))))
     (println "Best program:" (not-lazy (:program best)))
     (when (> report-simplifications 0)
       (println "Partial simplification:"

    (when use-rmse (println "RMS-error:" (:rms-error best)))
    (when print-history (println "History:" (not-lazy (:history best))))
    (println "Size:" (count-points (:program best)))
    (println "--- Population Statistics ---")
    (when print-cosmos-data
      (println "Cosmos Data:" (let [quants (config/quantiles (count population))]

          (>= generation max-generations) :failure
          :else :continue)))

(defn initial-report
  "Prints the initial report of a PushGP run."
  []
