req cur-phases)))
	 (do ((i 0 (+ i 1)))
	     ((= i 88200))
	   (outa i (polyoid gen 0.0)))))))

(with-sound ("test1.snd")
  (let* ((cgen (make-oscil 1000))
         (mgen (make-oscil 100))
	 (index (hz->radians (* 3 100))))
    (do ((i 0 (+ i 1)))
	((= i 44100))
      (outa i (oscil cgen (* index (oscil mgen)))))))


(define (all-fm freq index tries)
  (let* ((incr (/ (* 2 pi) tries))
	 (max-rms 0.0)
	 (min-rms 1.0)
	 (fm-index (hz->radians (* index freq))))

    (with-sound (:clipped #f)
      (do ((try 0