                                   :words ""})
   (let [athing (w/get-thing world :word-balloon)]
     (go
-      (doseq [w (char-at-a-time words)]
+      (doseq [w (word-at-a-time words)]
         (w/modify-thing athing :words w)
         (<! (timeout 500))))))
 

  (let [mx (s/mouse-x)
        my (s/mouse-y)]
    (when-let [thing (w/get-thing-at-location world [mx my])]
      (w/remove-thing world :word-balloon)
      (w/move-thing thing [mx my]))))

(defn init []

  
  (js/Processing. (sel1 :#stage) (s/sketch-init {:setup setup
                                                 :draw draw
                                                 :mouse-released mouse-released
                                                 :mouse-dragged mouse-dragged})))
