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

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

   :pop-when-tagging true
   :report-simplifications 0
   :print-history false
   ;:use-bushy-code true
   :use-ultra-no-paren-mutation true
  })
