 (+ 1 try))
	   (mod-phase 0.0 (+ mod-phase incr)))
	  ((= try tries))
	(let* ((cargen (make-oscil (* freq 10) (/ pi 2))) ; or 0 phase
	       (modgen (make-oscil freq mod-phase))
	       (samps 44100)
	       (sum 0.0))
	  (do ((samp 0 (+ 1 samp)))
	      ((= samp samps))
	    (let ((val (oscil cargen (* fm-index (oscil modgen)))))
	      (set! sum (+ sum (* val val)))))
	  (let ((rms (sqrt (/ sum samps))))
	    (set! max-rms (max max-rms rms))
	    (set! min-rms (min min-rms rms))
	    (outa try rms)))))
