examples/test.ss
#lang scheme/base

(require "../xhtml.ss")

(define (main)
  (for-each write-bytes
            (realize
             (document
              (build-head "The title" (link #:href "http://google.com" #:type 'next))
              (p "This is a test")
              (p "of the " (img #:src "emergencybroadcast.jpg") " system.")))))
(provide main)