    amp {:default 0.3 :min 0.001 :max 1 :step 0.01}
    decay {:default 0.6 :min 0.1 :max 0.8 :step 0.001}]
   (let [noise      (bpf (lpf (white-noise) low) hi)
-        clap-env   (line 1 0 decay :done FREE)
+        clap-env   (line 1 0 decay :action FREE)
         noise-envs (map #(envelope [0 0 1 0] [(* % 0.01) 0 0.04]) (range 8))
         claps      (apply + (* noise (map env-gen noise-envs)))]
     (* claps clap-env)))

   freq-decay {:default 0.02 :min 0.001 :max 1.0 :step 0.001}
   amp-decay  {:default 0.5 :min 0.001 :max 1.0 :step 0.001}]
  (let [fenv (* (env-gen (envelope [env-ratio 1] [freq-decay] :exp)) freq)
        aenv (env-gen (perc 0.005 amp-decay) :done FREE)]
    (* (sin-osc fenv (* 0.5 Math/PI)) aenv)))

(definst kick2 [freq      {:default 80 :min 10 :max 20000 :step 1}

   amp    {:default 0.3 :min 0.001 :max 1 :step 0.01}
   attack {:default 0.0001 :min 0.1 :max 1.0 :step 0.01}
   decay  {:default 0.1 :min 0.1 :max 1.0 :step 0.01}]
  (let [env (env-gen (perc attack decay) :action FREE)
        noiz (bpf (* amp (gray-noise)) freq 0.3)
        snd (* noiz env)]
    snd))
