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

    (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)

   [twitter.api.streaming]
   [clojure.data.json :as json ]
   [markov-clj.markov :as markov]
   [clojure.set :as set]
   )
  (:require
   [http.async.client :as ac])
  (:import
