   ;;   determine errors from float and boolean stacks
   (let [correct 0.0
         incorrect 1000000000.0
-        first-run-result (run-push (remove-noops program)
+        first-run-result (run-push program ;(remove-noops program)
                                    (tag-before-entry-points (make-push-state)))
         initialized-push-state (push-item 
                                    0.0 

   ;:use-historically-assessed-hardness true ;; just to print them!
   ;:decimation-ratio 0.01
   ;:tournament-size 1
   :population-size 500 ;200 ;50
   :max-generations 10001
   :evalpush-limit 3000
   :tag-limit 10000

                       (for [t (vals button-entrypoints)]
                         (fn [] (symbol (str "tag_exec_" (str t)))))
                       [(tagged-instruction-erc)]
                       ;(repeat 46 'code_noop)
                       '(boolean_and
                          boolean_dup
                          boolean_eq
