 (def file-template "syntagmata/corpora/%s/%s.txt")
 (def file-resource-template (str "resources/" file-template))
 (def name-file-template "syntagmata/corpora/names/%s/%s/%s.txt")
+(def name-file-resource-template (str "resources/" name-file-template))
 
-
+(defn load-clean
+  [fullpath]
+  )
 (defn load
   ([type language]
     (load (format file-template

                    (name language))
            data))
    ([race name-type data-type data]
      (dump (format name-file-template
                    (name race)
                    (name name-type)
                    (name data-type))

      (undump (format file-template
                      (name type)
                      (name language))))
    ([race name-type data-type]
      (undump (format name-file-template
                      (name race)
                      (name name-type)
