   ^{:stack-types [:integer :tag :exec :code]}
   (fn [state]
     (if (not (empty? (:integer state)))
-      (push-item (symbol (str "tag_code_" (mod (#(if (neg? %) (- %) %) (stack-ref :integer 0 state))
+      (push-item (symbol (str "tag_code_" (mod (#(if (neg? %) (-' %) %) (stack-ref :integer 0 state))
                                                @global-tag-limit)))
                  :exec
                  (pop-item :integer state))

;  ^{:stack-types [:integer :tag :exec :zip]}
;  (fn [state]
;    (if (not (empty? (:integer state)))
;      (push-item (symbol (str "tag_zip_" (mod (#(if (neg? %) (- %) %) (stack-ref :integer 0 state))
;                                              @global-tag-limit)))
;                 :exec
;                 (pop-item :integer state))

  ^{:stack-types [:integer :tag :exec]}
  (fn [state]
    (if (not (empty? (:integer state)))
      (push-item (symbol (str "tagged_" (mod (#(if (neg? %) (-' %) %) (stack-ref :integer 0 state))
                                             @global-tag-limit)))
                 :exec
                 (pop-item :integer state))
