   (fx-chorus)
   (fx-distortion)
 
+  (live/play (track blurred-lines))
   )

       (wherever :pitch, :pitch (comp scale/A scale/major scale/lower))
       code))

(defn decode [channels notes]
  (decode* (vec (repeat channels 0)) notes))

(defn track [start]
  (->>
    (champernowne/word 10 start)
    (decode 4)
    (wherever :pitch, :pitch temperament/equal)
    (where :time (bpm 120))
    (where :duration (bpm 120))))

  (update-in v [i] (partial + n)))

(defn digit-shift [x n]
  (apply * x (repeat n (biginteger 10))))

(defn construct [a b c d]
  (if (zero? (* a b))
