                           ;code_yankdup
                           environment_begin
                           environment_end
-                          ;environment_new
+                          environment_new
                           ;exec_do*count
                           ;exec_do*range
                           ;exec_do*times

                                                 (run-push (second (closest-association the-tag push-state))
                                                           push-state))
                                               (rest buttons))))))]
    (vec (cons (* 0.0000001 (reduce + (map second err-modcount-pairs)))
               (map first err-modcount-pairs)))))

;; a little test -- wire each key to just push the right digit
;(calc-errors '(tag_exec_2000 0.0 tag_exec_1600 1.0 tag_exec_1700 2.0

                          ;exec_fromziprights
                          ;exec_fromziproot
                          exec_if
                          exec_k
                          exec_noop
                          exec_pop
                          exec_rot
                          exec_s
                          ;exec_shove
                          ;exec_stackdepth
                          exec_swap
                          exec_when
                          exec_y
                          ;exec_yank
                          ;exec_yankdup
                          float_add
