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

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

; Natural numbers
(comment
  (range 0 8))

; Raw frequencies
(comment

(def C #(+ 72 %))

(comment
  (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) natural-numbers)
       (where :pitch (comp midi->hz A central-african-scale))
       live/play))

