 200))))))

;(multifm-component 200 2000.0 (list 2000.0 200.0) (list 0.5 1.0) () () #t)

(define (multifm-component freq-we-want wc wms inds ns bs using-sine)
  (if (pair? wms)
      (let* ((sum 0.0)
	     (index (car inds))
	     (mx (ceiling (* 5 index)))
	     (wm (car wms)))
	(do ((k (- mx) (+ k 1)))
	    ((>= k mx) sum)
	  (set! sum (+ sum (multifm-component freq-we-want (+ wc (* k wm)) (cdr wms) (cdr inds) 
					      (append ns (list k)) (append bs (list index)) 
					      using-sine)))))
      (if 