#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)