         (let [[prefix remainder] (split-at prefix-length words)]
             (recur
                 (update-transition
-                    (canon (vec prefix))
+                    (canon-ngram prefix)
                     (first remainder)
                     table)
                 (rest words)))

       comment))

; End YOUTUBE!

(defn on-message [{:keys [nick channel message irc]} state-ref]
    (log-sentence! message)

            (pick-random-youtube-comment)))
    (if (.startsWith message "!memory")
        (send-message irc channel
            (memory-stat)))
)

(defn -main
