              (recur instrument))))))
 
   (go
-   (<! c-program-state)
+   (<! c-app-state)
    (loop [instrument instrument]
      (>! c-instrument instrument)
      (let [[data c] (alts! [c-touch-start c-touch-end


  (go
   (<! c-touch-start) (<! c-touch-end) ;; start after first touch so don't break sound
   (>! c-program-state "start"))

  (go
   (draw-start-screen draw-ctx)

(let [canvas-id "canvas"
      draw-ctx (util/get-ctx canvas-id)
      instrument (update-size (create-instrument (scales/c-minor)) canvas-id)
      c-app-state (chan)
      c-instrument (chan)
      c-orientation-change (util/listen js/window :orientation-change)
      c-touch-start (util/listen (dom/getElement canvas-id) :touchstart)
