   (let [src (saw [freq (* freq 1.01) (* 0.99 freq)])
         low (sin-osc (/ freq 2))
         filt (lpf src (line:kr (* 10 freq) freq 10))
-        env (env-gen (perc 0.1 dur) :action :free)]
+        env (env-gen (perc 0.1 dur) :action FREE)]
     (out 0 (pan2 (* 0.1 low env filt)))))
 
 ;(dotimes [i 10]


(definst kick []
  (let [src (sin-osc 80)
        env (env-gen (perc 0.001 0.3) :action :free)]
    (* 0.7 src env)))

(defn player [beat notes]


(definst dtmf [freq-a 770 freq-b 1633 gate 1]
  (let [sig (* 0.2 (+ (sin-osc freq-a) (sin-osc freq-b)))
        env (env-gen (asr 0.001 1 0.001) gate 1 0 1 FREE)]
    (* sig env)))

(defn dial-number [num-seq]
