     (eval (list
       'push.instructions.core/build-instruction
       instruction-name
-      "DOCSTRING"
+      (str "`" typename "-conj` pops the top `" typename "` item and the top `" rootname "` item, and appends the latter to the former, pushing the result.")
       :tags #{:vector}
       `(push.instructions.dsl/consume-top-of ~rootname :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] #(into [] (rest %1)) :as :end)

    (eval (list
      'push.instructions.core/build-instruction
      instruction-name
      (str "`" typename "-length` pops the top `" typename "` item and pushes its count to the `:integer` stack.")
      :tags #{:vector}
      `(push.instructions.dsl/consume-top-of ~typename :as :arg1)
      '(push.instructions.dsl/calculate [:arg1] #(count %1) :as :len)
