Untitled

(setf cf 17500) ;modulation carrier frequency
(defun bandpass8 (sig lo hi)
 (lowpass8
 (highpass8 sig lo) hi))
(setf *track* (bandpass8 *track* 100 3000))
(setf *track* (mult *track* (hzosc cf)))
(bandpass8 *track* 19000 19000)