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

    :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})

  (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
