         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 twiiddle)
-         ;(with decoration)
-         ;(with grind)
+      ;   (with twiddle)
+      ;   (with decoration)
+      ;   (with grind)
          (where :pitch (comp scale/B scale/minor))
          (with theme)
          (where :time (bpm 90))

(defmethod live/play-note :default
  [{midi :pitch seconds :duration}]
  (some-> midi midi->hz (overchauffeur seconds)))

  )

; Instrumentation
(definst overchauffeur [freq 110 dur 1.0 vol 0.5]
  (-> (sin-osc freq)
      (+ (* 1/3 (sin-osc (* 2.01 freq))))
      (+ (* 1/2 (sin-osc (* 3.01 freq))))
