um-of-sin
			   (* (sin (* index (sin mx))))))))
      (set! cx (+ cx car-incr))
      (set! mx (+ mx mod-incr)))))

(with-sound () (pm-cancellation 0 1 1000.0 100.0 0.3 9.0))
</pre>


  <table class="borderedm">
  <tr><td><img src="pix/fmeq27.png" alt="uncancelled"></td></tr>
  <tr><td class="bluishb">cos side by itself</td></tr>
  <tr><td><img src="pix/fmcancel.png" alt="fm cancellation"></td></tr>
  <tr><td class="bluishb">both sides (showing cancellations)</td></tr>
  </table>


<p>I really like the sou