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

                              (w/add-thing world thing)))
                 :error-handler (fn [response] (js/alert response))}))

(defn char-at-a-time [words]
  (reverse (map (comp clojure.string/join reverse) (take-while #(< 0 (count %)) (iterate rest (seq (reverse words)))))))

(defn say [thing words]
  (w/add-thing world {:type :word-balloon

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

