     (eval (list
       'push.instructions.core/build-instruction
       instruction-name
-      "DOCSTRING"
+      (str "`" typename "-concat` pops the top two `" typename "` items and pushes the the concatenation of the top one onto the second one.")
       :tags #{:vector}
       `(push.instructions.dsl/consume-top-of ~typename :as :arg2)
       `(push.instructions.dsl/consume-top-of ~typename :as :arg1)

    (eval (list
      'push.instructions.core/build-instruction
      instruction-name
      "DOCSTRING"
      :tags #{:vector}
      `(push.instructions.dsl/consume-top-of ~typename :as :arg1)
      '(push.instructions.dsl/calculate [:arg1] #(reverse %1) :as :bw)

    (eval (list
      'push.instructions.core/build-instruction
      instruction-name
      (str "`" typename "-butlast` pops the top `" typename "` item and pushes the same vector lacking its last item (or nothing, if it ends up empty).")
      :tags #{:vector}
      `(push.instructions.dsl/consume-top-of ~typename :as :arg1)
      '(push.instructions.dsl/calculate [:arg1] #(butlast %1) :as :most)
