Working rhyme from scheme

But markov doesn't look like it's working. Sentences don't make sense.

src/com/owoga/corpus/markov.clj

@@ -183,7 +183,7 @@
 
   (def markov-trie (into (trie/make-trie) (nippy/thaw-from-file "/tmp/trie.bin")))
   (def database (nippy/thaw-from-file "/tmp/database.bin"))
-  (def markov-tight-trie (tpt/tightly-packed-trie markov-trie encode-fn (decode-fn db)))
+  (def markov-tight-trie (tpt/tightly-packed-trie markov-trie encode-fn (decode-fn database)))
   )
 
 
@@ -278,7 +278,8 @@
           result []]
      (let [choices (words-fn (rhyme-choices trie target-rhyme))]
        (if (or (empty? target-rhyme)
-               (prhyme/last-primary-stress? (reverse target-rhyme)))
+               (and (not-empty choices)
+                    (prhyme/last-primary-stress? (reverse target-rhyme))))
          (into result choices)
          (recur (butlast target-rhyme)
                 (into result choices)))))))
@@ -537,11 +538,11 @@
     rhyme-wordset-fn]
    (let [eos (database prhyme/EOS)
          bos (database prhyme/BOS)
-         rhyme (->> (rhyme-choices-walking-target-rhyme
+         choices (rhyme-choices-walking-target-rhyme
                   rhyme-trie
                   target-rhyme
                   rhyme-wordset-fn)
-                    rand-nth)]
+         rhyme (update (rand-nth choices) 1 (comp rand-nth vec))]
      (loop [phrase [rhyme]]
        (if (<= target-sentence-syllable-count
                (prhyme/count-syllables-of-phrase
@@ -558,7 +559,7 @@
                         (fn [[lookup [word frequency]]]
                           (or (markov-remove-fn [lookup [word frequency]])
                               (#{eos bos} word)))))]
-             [(phonetics/get-phones word) word]))))))))
+             [(rand-nth (phonetics/get-phones word)) word]))))))))
 
 ;;;; Demo
 ;;;;
@@ -642,9 +643,24 @@
        (map #(update % 0 rand-nth))
        (apply map vector)
        ((fn [[phones words]]
-          [(string/join " " (reduce into [] phones)) (string/join " " words)]))
+          [(reduce into [] phones) (string/join " " words)]))
        (first)))
 
+(comment
+  (let [sentence '[[[[F L OW1]] flow]
+                   [[[AH0 N D] [AE1 N D]] and]
+                   [[[S IY1 K]] seek]
+                   [[[F IH1 NG G ER0 Z]] fingers]
+                   [[[Y AO1 R] [Y UH1 R]] your]
+                   [[[TH R UW1]] through]
+                   [[[S T R EH1 NG K TH] [S T R EH1 NG TH]]
+                    strength]
+                   [[[F AY1 N D]] find]
+                   [[[K AE1 N] [K AH0 N]] can]]]
+    (sentence->phones sentence))
+
+  )
+
 (defn rhyme-from-scheme
   "scheme of format [[A 9] [A 9] [B 5] [B 5] [A 9]]
 
@@ -678,19 +694,21 @@
                     syllable-count
                     (constantly false)
                     ;; words-fn
-                    ;; ([("G" "AO1" "B") "bog"] [("G" "AO1" "F") "fog"])
+                    ;; ([("G" "AO1" "B") #{"bog"}] [("G" "AO1" "F") #{"fog"}])
                     (fn [rhyming-words]
                       (->> (map (fn [[phones wordset]]
-                                  [phones (set/difference
+                                  [phones (->> (set/difference
                                                 wordset
-                                           banned-words)])
+                                                banned-words))])
                                 rhyming-words)
                            (remove (fn [[phones wordset]]
                                      (empty? wordset)))))))
             rhyme (reverse (sentence->phones line))]
+        (println line)
         (recur (rest scheme)
                (assoc line-phones pattern rhyme)
                (conj result (reverse line)))))))
+
 (comment
   (tightly-generate-n-syllable-sentence
    database
@@ -704,6 +722,7 @@
    markov-tight-trie
    rhyme-trie)
 
+  (trie/lookup markov-tight-trie nil)
   (tightly-generate-n-syllable-sentence-rhyming-with
    database
    markov-trie