Reduced bell

gistfile1.txt

(definst bell# [frequency 440 duration 4.0]
  (let [harmonic-decay [1.0 0.5 0.25 0.125]
        ring (reduce + (map-indexed
                   (fn [harmonic proportion]
                     (let [envelope (env-gen (perc 0.01 (* duration proportion)))
                           overtone (* (inc harmonic) frequency)]
                       (* envelope proportion (sin-osc overtone))))
                   harmonic-decay))]
    (detect-silence ring :action FREE)
    ring))

Yep, sounds the same to me.