     (if (= () line)
       (xml/indent-str (zip/root zipper))
       (do
-        (println "ziper=" zipper)
+        ;(println "ziper=" zipper)
         (let [paths (str/split (:tag (first line)) #">")
               m (map #(zx/tag= (keyword %)) paths)
               c (str/split (:content (first line)) #">")

            <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
