gistfile1.txt

(defn to-zip
    "Converts a clojure.data.xml load into a clojure.zip zipper"
    [xml-data]
    (-> xml-data czip/xml-zip))

(defn load-feed
    "Loads the given filename"
    [filename]
    (-> filename
        clojure.java.io/resource
        clojure.java.io/input-stream
        clojure.data.xml/parse))

(defn stream-as-agencies
    "An example mapping function using xml-> and xml1-> zipping"
    [listings-zip]
    (let [agencies (take 5 (xml-> listings-zip :Agencies :Agency))]
        (doseq  [agency agencies])
            (println "*")))

(defn two-gig-file
    "The transformed sample data"
    []
    (stream-as-agencies (to-zip (load-feed "Live.xml"))))