       (+ (* 1/8 (sin-osc (* 5.01 freq))))
       (+ (* 2 (sin-osc (* 0.5 freq))))
       (clip2 0.7)
-      (lpf 1000)
-      (hpf 100)
+      (lpf 1500)
       (* (env-gen (adsr 0.01 0.3 0.9 0.2) (line:kr 1 0 dur) :action FREE))
       (* vol)))
 

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

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

        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))
