     (when use-rmse (println "RMS-error:" (:rms-error best)))
     (when print-history (println "History:" (not-lazy (:history best))))
     (println "Size:" (count-points (:program best)))
+    (when use-lexicase-selection (lexicase-report population argmap))
     (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."
  []

           error-threshold max-generations
           print-errors print-history print-cosmos-data print-timings
           problem-specific-report use-rmse use-historically-assessed-hardness
           use-lexicase-selection
           ;; The following are for CSV or JSON logs
           print-csv-logs print-json-logs csv-log-filename json-log-filename
           log-fitnesses-for-all-cases json-log-program-strings
           ]
    :as argmap}]
  (println)
  (println ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;")
  (println ";; -*- Report at generation" generation)
