                                 phrase3
                                 phrase2
                                 phrase2
-                                 phrase1a-reprise
+                                phrase1a-reprise
                                 phrase1b-reprise
                                 phrase1a-reprise
                                 phrase1b-reprise

        pitch (nth (cycle lh-pitches) idx)]
    (if (sequential? pitch)
      (doseq [p pitch]
        (sampled-piano p vol))
      (sampled-piano pitch vol))))

(defonce m (poly/init "/dev/tty.usbserial-m64-0790"))


(poly/on-press m (fn [x y s]
                   (if (= 7 x)
                     (reset-pos)
                     (do
                       (if (< 5 y)
                         (play-next-rh (+ (rand-int 5) (* 12 (+ x 4))))
                         (play-next-lh (+ (rand-int 5) (* 12 (+ x 4)))))
                       (poly/led-on m x y)))

                   (println [x y])))

(poly/on-release m (fn [x y s]
                     (poly/led-off m x y)))

;;(poly/remove-all-callbacks m)
;;(poly/disconnect OCOC)m

  (reset! cur-pitch-rh -1)
  (reset! cur-pitch-lh -1))

(defn vol-mul
  [vol]
  (* vol 0.002))

(defn play-next-rh
  [vol]
  (let [idx (swap! cur-pitch-rh inc)
        pitch (nth (cycle rh-pitches) idx)]
    (sampled-piano pitch (vol-mul vol))))

(defn play-next-lh
  [vol]
