examples/htmldoc.ss
#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))