         (println "Files fixed: " (count files))))
 
 (defn -main [& args]
-  (convert-files!))
+  (convert-files))

   )
  (:gen-class :main true))

(defn convert [fname]
  (let [my-data
        (try
          (xml/parse fname)

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