        store-and-reply-to-followers
        ))
 
-(def ktweets (slurp "resources/koleman_tweets.txt"))
+;; (def ktweets (slurp "resources/koleman_tweets.txt"))
 
-(defn -main [] (process-followers))
+(defn start-markov-thread []
+  (loop []
+    (Thread/sleep (* 60 15000))
+    (process-followers)
+    (recur)))
 
-(process-followers)
+(defn -main [] (start-markov-thread))
+
+;; (markov-clj.util/tick-now 500 #(println "Hey there!"))
+
+;; (process-followers)

    (loop [candidate (first candidate-tweets)
           others (rest candidate-tweets)]
      (let [final-tweet (str candidate suffix)]
        (println (count final-tweet) "*****\n" final-tweet)
        (if (< (count final-tweet) 140)
          final-tweet
          (if (empty? others)



(defn create-and-send-tweet [[screen-name tweets]]
  (->> (make-valid-tweet screen-name tweets)
       println
       ;; tweet-the-twitter
