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