Robert Fisher

#!r6rs
(import (rnrs))

(define text '("#!r6rs\n(import (rnrs))\n(define text '"
               #f
               ")\n(for-each(lambda(item)(if item(display item)(write text)))text)\n"))

(for-each (lambda (item)
            (if item
                (display item)
                (write text)))
          text)