;; some-funct-which-takes-stream-as-input is executed immediately but when it tries to read the forms below
;; get execute to provide it input
(with-stream-redirection (out)
    (some-func-which-takes-stream-as-input out)
  (format out "foo")
  (some-func-which-writes-to-out out)
  (format out "bar"))