if (= n 24)
				     #(0 1 1 0 0 1 1 0 0 0 1 1 1 0 1 0 1 1 0 1 0 0 0 0)
				     #(0 0 0 0 0 0 0 1 1 0 1 0 1 0 0 1 0 1 0 0 0 0 0 1 0 0 1 1 1 0 1 0 1 0 1 1 1 0 1 1 0 0 1 0 1 0 0 0 0 1 1 0 1 1 0 1 1 0 0 1 1 1 1 1)
				     )))))))

    (do ((i 0 (+ i 1)))
	((= i n))
      (set! (mods1 i) (make-oscil (* (+ i 1) freq) (/ pi 2)))
      (set! (mods2 i) (make-oscil (* (+ i 1) freq) (* pi (phases i)))))

     (do ((i 0 (+ i 1 ))) 
         ((= i 441000))
       (let ((mod1 0.0)
	     (mod2 0.0))
	 (do ((k 0 (+ k 1)