(hear
 (let* ((b (as-local-buf (list 0 2 3.2 5 7 9 10)))
        (x (mouse-x kr 0 15 0 0.1))
        (k (degree-to-key b x 12))
        (c (lambda (n r)
             (let* ((o (mul (sin-osc ar (midi-cps (add3 r k n)) 0) 0.1))
                    (t (lf-pulse ar (midi-cps (mce2 48 55)) 0.15 0.5))
                    (f (midi-cps (mul-add (sin-osc kr 0.1 0) 10 r)))
                    (d (mul (rlpf t f 0.1) 0.1))
                    (m (add o d)))
               (add (comb-n m 0.31 0.31 2) m))))
        (n (mul (lf-noise1 kr (mce2 3 3.05)) 0.04)))
   (mul (add (c n 48) (c n 72)) 0.25)))

(hear
 (let* ((b (as-local-buf (list 0 2 3.2 5 7 9 10)))
        (x (mouse-x kr 0 15 0 0.1))
        (k (degree-to-key b x 12))
        (c (lambda (n r)
             (let* ((o (mul (sin-osc ar (midi-cps (add3 r k n)) 0) 0.1))
                    (t (lf-pulse ar (midi-cps (mce2 48 55)) 0.15 0.5))
                    (f (midi-cps (mul-add (sin-osc kr 0.1 0) 10 r)))
                    (d (mul (rlpf t f 0.1) 0.1))
                    (m (add o d)))
               (add (comb-n m 0.31 0.31 2) m))))
        (n (mul (lf-noise1 kr (mce2 3 3.05)) 0.04)))
   (mul (add (c n 48) (c n 72)) 0.25)))
