 (def C #(+ 72 %))
 
 (comment
-  (->> (phrase (repeat 1/4) (range 0 8))
+  (map (comp A major) natural-numbers)
+  (map (comp A minor) natural-numbers)
+  (map (comp A central-african-scale) natural-numbers)
+
+  (->> (phrase (repeat 1/4) natural-numbers)
        (where :pitch (comp midi->hz A major))
        live/play)
 
-  (->> (phrase (repeat 1/4) (range 0 8))
+  (->> (phrase (repeat 1/4) natural-numbers)
        (where :pitch (comp midi->hz A central-african-scale))
        live/play))
 

(def central-african-scale (comp high pentatonic -))

(comment
  (major 0)
  (major 2)
  (minor 2)

  (central-african-scale 0)
  (central-african-scale 2)

  ; Inaudible
  (->> (phrase (repeat 1/4) [0 1 2 3 4 5 6 7])
       (where :pitch (comp midi->hz major))
       live/play))


       live/play)

  ; Inaudible
  (->> (phrase (repeat 1/4) natural-numbers)
       live/play))

; Midi
