 
 (comment
   (fx-chorus)
+  (fx-distortion)
   (live/jam (var geb))
   (def geb nil)
   )

        twiddle (with (phrase (repeat 32 1/2) (cycle [4 2 2 0 -1])) (phrase (repeat 64 1/4) (cycle [4 2 5 4 5 4 7 7])))]
    (->> bass
         (where :pitch (comp scale/lower scale/lower))
      ;   (with twiddle)
      ;   (with decoration)
      ;   (with grind)
         (where :pitch (comp scale/B scale/minor))
         (with theme)
         (where :time (bpm 90))

  (some-> midi midi->hz (overchauffeur seconds)))

(defn book [initial]
  (({\G (sample "samples/godel.wav" :start 4000)
     \E (sample "samples/escher.wav")
     \B (sample "samples/bach.wav")}
    initial)))
