13 lines
268 B
Scheme
13 lines
268 B
Scheme
|
(import (scheme base)
|
||
|
|
(scheme write))
|
||
|
|
|
||
|
|
; expects "piece by piece by piece.\n"
|
||
|
|
(write
|
||
|
|
(parameterize
|
||
|
|
((current-output-port (open-output-string)))
|
||
|
|
(display "piece")
|
||
|
|
(display " by piece ")
|
||
|
|
(display "by piece.")
|
||
|
|
(newline)
|
||
|
|
(get-output-string)))
|