             :backwardtable
                 (update-table (:backwardtable state) (reverse words))
             :n-grams
-                (update-ngrams (:n-grams state) words))))
+                (update-ngrams (:n-grams state) (remove keyword? words)))))
 (defn log-sentence! [message]
     (with-open [out (writer corpus-file :append true)]
         (.write out (str message "\n"))))

    (update-state! message state-ref)
    (if (and (not (= nick (:name @irc))) (.contains message (:name @irc)))
        (send-message irc channel
            (join " " (generate-sentence
                @state-ref
                (let [keywords (set (remove #(.contains % (:name @irc)) (split-sentence-to-words message)))]
                    (if (<= (count keywords) 3) keywords #{}))))))
    (if (.startsWith message "!burrito")
        (send-message irc channel
            (generate-burrito)))

                    (:backwardtable state)
                    (:forwardtable state)))))))
        (let [filtered-grams
                (apply concat
                    (map
                        (fn [k]
                            (subseq (:n-grams state)
                                >= (extend-vec [k] "" prefix-length)
                                < (extend-vec [(append-null k)] "" prefix-length)))
                        keywords))]
            (if (empty? filtered-grams)
                (generate-sentence state [])
                (generate-sentence
