-DC initial phase:
(with-sound () 
  (cascade 0 1.0 400 .25 1 1.0 1 1.0 (* 0.5 (+ pi (hz-&gt;radians 400)))))
</pre>
<!-- -->

<div class="spacer"></div>

<p>Why stop at three sins?  Here's an experiment that calls sin(sin(sin...)) k times;
it seems to be approaching a square wave as k heads into the stratosphere:
</p>

<!--
(with-sound () 
  (let ((angle 0.0)
	(incr (hz->radians 100.0)))
    (do ((i 0 (+ i 1)))
	((= i 20000))
      (let* ((result (sin angle)))
	(do ((k 0 (+ k 1)))
	    ((= k 2))
	  (set! r