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

                        m)
              edit { :tag (keyword (last paths)) :content content }
              new-loc (apply zx/xml1-> zipper matches)]
          (if (nil? new-loc) 
            (println "WARNING: " (first line) " NOT FOUND"))
          (let [loc (if-not (nil? new-loc)
                      (do
                        (zip/root (zip/replace new-loc edit)))
                      (do
