#lang scheme (require "xhtml.ss") (require (prefix-in w: "writer.ss")) (define-values (input output) (make-pipe)) (define producer (thread (λ () (document (λ (s) (display s)(display s output)) (head "Test" "style.css") (w:gen (p "Hi"))) (close-output-port output)))) (require (prefix-in xml: xml)) (xml:display-xml (xml:read-xml input))