[CM] rewrite output in CM

[Drew Krause]

I need help with output options for the "rewrite" pattern. As an 
example, suppose I create a morse-thue sequence:

(define mt (new rewrite of '((0 -> (0 1))
                             (1 -> (1 0)))
                :initially '(1 0)))

How can I get a new complete L-to-R generation on each call, a la:

(1 0) ; {we can skip this step if we have to}
(1 0 0 1)
(1 0 0 1 0 1 1 0)
&c.

All help much appreciated!

Drew