             [leipzig.temperament :as temperament]
             [kolmogorov-music.champernowne :as champernowne]))
 
-(def master-volume 0.1)
+(def master-volume 0.05)
 
 ; Instruments
 ;(defonce sweep-bus (audio-bus))


(defn encode [[duration pitch]]
  {:time 0
   :duration (get [1/4 2/4 3/4 4/4 6/4 8/4 12/4 16/4] duration 1/4)
   :pitch pitch })

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


(def track
  (->>
    (champernowne/word 16 0)
    (split-by 15)
    (map arrange)
    sequentially
    (where :pitch (comp temperament/equal scale/A scale/minor))
    (where :pitch scale/lower)
    (where :time (bpm 120))
    (where :duration (bpm 120))))

