                                phrase1-bass                            ;;U
                                ))
 
-(def lh-pitches (degrees->pitches left-hand-degrees :major :Bb3))
-(def rh-pitches (degrees->pitches right-hand-degrees :major :Bb3))
+(def lh-pitches (degrees->pitches left-hand-degrees :major :Ab4))
+(def rh-pitches (degrees->pitches right-hand-degrees :major :Ab4))
 
 (def cur-pitch-rh (atom -1))
 (def cur-pitch-lh (atom -1))

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

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

(defn play-next-lh
  [vol]

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