 (def empty-state {
     :forwardtable {}
     :backwardtable {}
-    :n-grams []
+    :n-grams (sorted-set)
 })
 
 

            (reverse (take 500 (stream-of-shite (reverse seed) backward))))
        (take 500 (stream-of-shite seed forward))))

(defn generate-sentence [state keywords]
    (println "keywords: " keywords "\n")
    (if (empty? keywords)
        (remove keyword? (map first
            (apply max-key #(count (filter true? (map second %)))

    (update-state! message state-ref)
    (if (and (not (= nick (:name @irc))) (.contains message (:name @irc)))
        (send-message irc channel
            (join (take 450 (join " " (generate-sentence
                @state-ref
                (set (remove #(.contains % (:name @irc)) (split-sentence-to-words message)))))))))
    (if (.startsWith message "!burrito")
        (send-message irc channel
            (generate-burrito)))
