 (def fmatch (map #(zx/tag= %) '(:x)))
 (def match (map #(zx/tag= %) '(:b :c :d)))
 
-(def content '("CHSDA" "foo"))
+(def content '("UNTETH" "foo"))
 
 (def big-match (concat match (map #(zx/text= %) (list (first content)))))
-;(println (apply zx/xml-> zipper fmatch))
+(println (apply zx/xml-> zipper big-match))
 
 
 

            <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-->
          </b>
        </e>
")

            (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))



