       instruction-name
       docstring
       :tags #{:arithmetic :base}
-      `(push.instructions.dsl/consume-top-of ~stackname :as :arg1)
-      `(push.instructions.dsl/calculate [:arg1] #(~operation %1) :as :result)
-      `(push.instructions.dsl/push-onto ~stackname :result)))))
+      `(dsl/consume-top-of ~stackname :as :arg1)
+      `(dsl/calculate [:arg1] #(~operation %1) :as :result)
+      `(dsl/push-onto ~stackname :result)))))
 
 
 (defn simple-2-in-1-out-instruction

      instruction-name
      docstring
      :tags #{:arithmetic :base}
      `(push.instructions.dsl/consume-top-of ~stackname :as :arg2)
      `(push.instructions.dsl/consume-top-of ~stackname :as :arg1)
      `(push.instructions.dsl/calculate [:arg1 :arg2] #(~operation %1 %2) :as :result)
      `(push.instructions.dsl/push-onto ~stackname :result)))))


(defn simple-1-in-predicate

      instruction-name
      (str "`:" instruction-name "` pops the top `" stackname "` item and pushes it to `:code`")
      :tags #{:complex :base :conversion}
      `(dsl/consume-top-of ~stackname :as :arg)
      `(dsl/push-onto :code :arg)))))

