      :three-gens-some-diff-diffs three-gens-some-diff-diffs-diversifying?
      :size-and-instruction size-and-instruction-diversifying?
      :three-gens-size-and-instruction three-gens-size-and-instruction-diversifying?
-     :diffmeans diffmeans-diversifying?)
+     :diffmeans diffmeans-diversifying?
+     :no-clones no-clones-diversifying?)
     g
     argmap))
 

    (and (> (reduce min diffs) 0) ;; diversification threshold set here
         (> (count (distinct diffs)) 1))))

(defn three-gens-diff-diffs-diversifying?
  "Returns true iff genome g passes the diversification test."
  [g argmap]

        (if use-child false true)))))



