#
!
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
)