 (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))
 

;;;;;;;;;;;;;;;;;;

; Natural numbers
(comment
  (range 0 8))

; Raw frequencies
(comment

       live/play)

  ; Inaudible
  (->> (phrase (repeat 1/4) natural-numbers)
       (where :pitch midi->hz)
       live/play))

