 
 (def track
   (->>
-    (champernowne/word 8 (rand-int 999999999))
-    (split-by 0)
+    (champernowne/word 16 0)
+    (split-by 15)
     (map arrange)
     sequentially
-    (take-while #(-> % :time (< 128)))
-    (where :pitch (comp temperament/equal scale/A scale/major))
+    (where :pitch (comp temperament/equal scale/A scale/minor))
+    (where :pitch scale/lower)
     (where :time (bpm 120))
     (where :duration (bpm 120))))
 

            [leipzig.temperament :as temperament]
            [kolmogorov-music.champernowne :as champernowne]))

(def master-volume 0.1)

; Instruments
;(defonce sweep-bus (audio-bus))


(defn encode [[duration pitch]]
  {:time 0
   :duration (/ duration 4)
   :pitch pitch})

(defn evens [[x _ & zs]]
  (when x
