                    (map coding/char->ascii)
                    (phrase [4 4 8])
                    (canon/canon #(where :pitch coding/ascii->midi %)))
+        theme2 (->> theme (with (->> (phrase [4 4 8] "GEB") (where :part (is :sample)))))
         bass (phrase [4 4 8] [-2 -1 0])
         bass2 (phrase (repeat 4 4) (cycle [3 0]))
         decoration (phrase (repeat 64 1/4) (cycle [7 8 9 11 7 6]))

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