     (outa i (* amp (oscil cr 0.0 
                         (* fm-index (oscil md)))))))))

(with-sound () (fm 0 10000 100 .5 8 0))
(with-sound () (fm 0 10000 100 .5 8 0 (* .5 pi)))
</pre>
-->

<!-- SND CASE -->
<pre class="indented">
(define (pm beg dur freq amp fm-index mod-phase)
  (let* ((start (seconds-&gt;samples beg))
	 (end (+ start (seconds-&gt;samples dur)))
	 (cr (make-oscil freq))
	 (md (make-oscil freq mod-phase)))
    (do ((i start (+ i 1)))
        ((= i end))
      (outa i (* amp (oscil cr 0