 (vector-set! amps (- 10 i) (bes-jn (- i) 1.0))
    (vector-set! amps (+ 10 i) (bes-jn i 1.0)))

  (with-sound (:channels 2)
    (do ((i 0 (+ i 1))
	 (x 0.0 (+ x freq)))
	((= i 44100))
      (let ((y 0.0))
	(do ((j 5 (+ j 1)))
	    ((= j 16))
	  (set! y (+ y (* (amps j) (sin (* x j))))))
	(outa i y)
	(outb i (sin (+ (* x 10) (sin x))))))))
-->

<p>There is a rule of thumb, Mr Carson's rule, about the overall bandwidth of the resultant spectrum (it 
follows from our description of the Bessel functions): Roug