Parameter Objects

(parameterize
  ((current-output-port
   (open-output-string)))
  (display "piece")
  (display " by piece ")
  (display "by piece.")
  (newline)
  (get-output-string (current-output-port)))
=⇒ "piece by piece by piece.\n"