                                   (interpose " " ,,) 
                                   (apply str ,,)))]
     (repeatedly generation-fn)))
+
+(println "\n" (first (generate (parse-corpus (slurp "resources/koleman_tweets.txt")) 1)))

(ns markov-clj.markov)


(defn parse-corpus [s]
  (clojure.string/split s #"\s+"))

    (assoc database key {val 1})))

(defn build-database [corpus n] (->> corpus
                                     parse-corpus
                                     (generate-tuples (inc n) ,,)
                                     (map index-tuple ,,)
                                     (reduce index-frequencies {} ,,)))
