         :is-random-replacement
         (if use-child false true)))))
 
+
+;; @@

(ns clojush.pushgp.genetic-operators
  (:use [clojush util random individual globals interpreter translate pushstate]
        clojush.instructions.tag

  (let [num-children 10
        make-child #(produce-child-genome-by-autoconstruction % % false argmap)
        c1 (make-child g)
        diffs1 (vec (repeatedly 
                      num-children 
                      #(expressed-difference c1 (make-child c1) argmap)))]
    (if (or (some #{0} diffs1)
            (apply = diffs1))
      false
      (let [c2 (make-child g)
            diffs2 (vec (repeatedly 
                          num-children 
                          #(expressed-difference c2 (make-child c2) argmap)))]
        (if (or (some #{0} diffs2)
                (apply = diffs2)
                (> (safe-t-test diffs1 diffs2) 0.01))
