(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)))