    (load-push-argmap argmap)
    (reset-globals)))
 
+

                                   'integer_tag_char_instruction
                                   'integer_tag_string_instruction]]
             (into (:atom-generators @push-argmap)
                   (take (* (:tag-enrichment argmap) (count tag-instructions))
                         (cycle tag-instructions)))))))

(defn reset-globals

                                      (:atom-generators @push-argmap))))
    (swap! push-argmap assoc
           :replace-child-that-exceeds-size-limit-with :empty))
  (when (> (:tag-enrichment @push-argmap) 0)
    (swap! push-argmap assoc
           :atom-generators 
           (let [tag-instructions [(tag-instruction-erc 
