Big lazy-seq in a defrecord

gistfile1.clj

(defrecord Element [tag attrs content]
  Emit
  (emit-element [e writer]     ;;<---- e has a big lazy seq for it's :content, see below
    (let [nspace (namespace (:tag e))
          qname (name (:tag e))
          ^javax.xml.stream.XMLStreamWriter writer writer]
      (.writeStartElement writer ""  qname (or nspace ""))
      (write-attributes e writer)
      (doseq [c (:content e)]
        (emit-element c writer))
      (.writeEndElement writer))))

 (Element. :some-tags
           {}
           (map #(Element. :foo {} [(str "foo" %)]) ;;<--- this is the :content of the tag, 10 million <foo>fooX</foo>
                (range 0 10000000)))