 (defn sound-transitions
   ""
   [language words]
-  (->> words
-       (map (comp #(remove nil? %)
-                  #(mapcat rest %)
-                  #(re-seq (re-pattern (corpus/re-sound-transitions language)) %)))))
+  (map (comp #(remove nil? %)
+             #(mapcat rest %)
+             #(re-seq (re-pattern (corpus/re-sound-transitions language)) %))
+       words))
 
 (defn flat-sound-transitions
   [language words]

    [clojure.set :as set]
    [clojure.string :as string]
    [hxgm30.language.syntagmata.corpus :as corpus]
    [hxgm30.language.syntagmata.lang.core :as lang]
    [hxgm30.language.syntagmata.util :as util]))

(defn pseudo-syllables
  ""

(defn regen-stats
  []
  (doall
    (for [language supported]
      (do
        (corpus/dump :stats language (generate-stats language))
        {language :ok}))))

(defn stats
  [language]
  (corpus/undump :stats language))

