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




; Little-endian
(def little-endian-pentatonic
  "In Central African music, we play scales from small sounds to big ones."
  (comp pentatonic -))

(comment
  (map (comp A little-endian-pentatonic) (range 0 6))

  (->> (phrase (repeat 1/4) (range 0 6))
       (where :pitch (comp midi->hz A little-endian-pentatonic))
       live/play))








; Scales
(def major (scale [2 2 1 2 2 2 1]))
(def minor (scale [2 1 2 2 1 2 2]))

(comment
  (->> (phrase (repeat 1/4) (range 0 8))
