 (def button-entrypoints
   (zipmap buttons (iterate #(+ % 100) 0)))
 
+
 ; button-entrypoints
 
 (define-registered 

                       (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

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