View difference between Paste ID: bhwszUnz and L3hiY13Q

 (defn foo [xml-seq]
   (loop [accum [], xs xml-seq]
     (if (empty? xs)
       accum
       (recur (conj accum
 		   (extract (first xs)))
 	     (rest xs)))))