             <c>
               <d>CLIP</d>
             </c>
-            <!--FeatureApiInfo>
-              <featureCode>HLT</featureCode>
-            </FeatureApiInfo>
-            <FeatureApiInfo>
-              <featureCode>INT</featureCode>
-            </FeatureApiInfo>
-            <FeatureApiInfo>
-              <featureCode>SMS</featureCode>
-            </FeatureApiInfo>
-            <FeatureApiInfo>
-              <featureCode>STD</featureCode>
-            </FeatureApiInfo>
-            <FeatureApiInfo>
-              <featureCode>TWAYR</featureCode>
-            </FeatureApiInfo>
-            <FeatureApiInfo>
-              <featureCode>UNTETH</featureCode>
-            </FeatureApiInfo-->
+            <c>
+              <d>HLT</d>
+            </c>
+            <c>
+              <d>INT</d>
+            </c>
+            <c>
+              <d>SMS</d>
+            </c>
+            <c>
+              <d>STD</d>
+            </c>
+            <c>
+              <d>TWAYR</d>
+            </c>
+            <c>
+              <d>UNTETH</d>
+            </c>
           </b>
         </e>
 ")

(def fmatch (map #(zx/tag= %) '(:x)))
(def match (map #(zx/tag= %) '(:b :c :d)))

(def content '("CHSDA" "foo"))

(def big-match (concat match (map #(zx/text= %) (list (first content)))))
;(println (apply zx/xml-> zipper fmatch))




            (recur (zip/xml-zip loc) (rest line))))))))


(println (set-values  (lazy-seq '({:tag "a" :content "arglebargle" }
                                  {:tag "b>c>d" :content "CHSDA>foo" }
                                  {:tag "b>c>d" :content "CLIP>bar" }
                                  {:tag "x" :content "y"}
                                  {:tag "b>c>d" :content "UNTETH>baz"})) test-request))



