   (if (number? number-or-numbers)
     number-or-numbers
     (lrand-nth number-or-numbers)))
+
+(declare produce-child-genome-by-autoconstruction) ;; forward declaration for :consistency
 
 (defn age-combining-function
   "Returns the actual age combining function specified by the :age-combining-function

    :first (fn [p1 p2 g]
             (inc (:age p1)))
    :fidelity (fn [p1 p2 g]
                (sequence-similarity g (:genome p1)))))

;; test effects of :proportionate with expressions like this:
;(float ((age-combining-function {:age-combining-function :proportionate})

                                           (:ancestors parent1)))
        :is-random-replacement
        (if use-child false true)))))

