            (if err
              (print err err.stack)
              (let [buffer (.-buffer (.-AudioStream data))]
-               (play-audio buffer))))))
+               (play-audio buffer)))))))
     (recur))
 
 (defonce app-state


(def polly-say (chan))
(go-loop []
    (let [what (<! polly-say)]
      (. polly synthesizeSpeech (clj->js {:Text what
                                          :OutputFormat "mp3"
                                          :VoiceId "Ivy"})

(enable-console-print!)

(defonce polly
  (let [access-key-id (js/localStorage.getItem "accessKeyId")
        secret-access-key (js/localStorage.getItem "secretAccessKey")]
    (when-not (or (nil? access-key-id) (nil? secret-access-key))
      (js/AWS.Polly. #js {:apiVersion "2016-06-10"
                          :region "us-east-1"
                          :accessKeyId access-key-id
                          :secretAccessKey secret-access-key}))))

;; https://gist.github.com/msgodf/9296652
(defn decode-audio-data
