        (map rand-variations)
        (introduce-after 4)
        (map pan)
-       (where :pitch (comp midi->hz high A central-african-scale))
+       (where :pitch (comp midi->hz high A little-endian-pentatonic))
        (tempo (bpm 120))))
 
 (comment


; Midi
(comment
  (->> (phrase (repeat 1/4) [69 71 73 74 76 78 80 81])
       (where :pitch midi->hz)
       live/play))

; Keys
(defn A [midi] (+ midi 69))


(comment
  (live/play (aga-terumo)))




