     (eval (list
       'push.instructions.core/build-instruction
       instruction-name
+      (str "`:" instruction-name "` discards the top item from the `" pushtype
+        "` stack.")
       :tags #{:combinator}
       `(push.instructions.dsl/delete-top-of ~typename)))))
 

    (eval (list
      'push.instructions.core/build-instruction
      instruction-name
      :tags #{:visible}
      `(push.instructions.dsl/count-of ~typename :as :depth)
      '(push.instructions.dsl/calculate [:depth] #(zero? %1) :as :check)

    (eval (list
      'push.instructions.core/build-instruction
      instruction-name
      (str "`:" instruction-name "` pops the top two `" pushtype
        "` items and pushes `true` if the top item is greater than the second, `false` otherwise.")
      :tags #{:comparison}
      `(push.instructions.dsl/consume-top-of ~typename :as :arg2)
      `(push.instructions.dsl/consume-top-of ~typename :as :arg1)
