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

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


(defn load
  ([type language]
    (load (format file-template


(defn load-stats
  ([language]
    (undump :stats language))
  ([race name-type]
    (undump race name-type :stats)))

(defn save-wordlist
  [language data]
