     (and (> (reduce min diffs) 0) ;; diversification threshold set here
          (> (count (distinct diffs)) 1))))
 
+(defn no-clones-diversifying?
+  "Returns true iff genome g passes the diversification test."
+  [g argmap]
+  (not= (translate-plush-genome-to-push-program 
+          {:genome g} 
+          argmap)
+        (translate-plush-genome-to-push-program 
+          {:genome (produce-child-genome-by-autoconstruction g g false argmap)} 
+          argmap)))
+
 (defn three-gens-diff-diffs-diversifying?
   "Returns true iff genome g passes the diversification test."
   [g argmap]

     :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?)
    g
    argmap))


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



