    )
   (:gen-class :main true))
 
-(defn convert [fname]
+(defn convert! [fname]
   (let [my-data
         (try
           (xml/parse fname)

        (println "Files fixed: " (count files))))

(defn -main [& args]
  (convert-files!))

    ;(println (str "Creating: " fedn))
    ))

(defn convert-files []
  (doseq [fname files/fnames]
    (convert fname))
  (println "Files converted:" (count files/fnames)))

(defn fix-files! []
  (let [files [ "/home/bost/vircurex/2013/08/31/vircurex.2013-08-31_15-05-30.xml"
                "/home/bost/vircurex/2013/08/31/vircurex.2013-08-31_15-10-37.xml"
                "/home/bost/vircurex/2013/08/31/vircurex.2013-08-31_15-36-50.xml"
