#lang scheme
(require "xhtml.ss")
(require xml)

(display-xml (create-document '(title "beep") '(p () "content")))
(display "\n---\n")
(display-xml (create-document 
			  '(title "beep") '(p () "shmontent")
			  (list (make-comment "Beep") (make-comment "Beep2"))
			  (list (make-comment "Before the HTML"))
			  (list (make-comment "tail1") (make-comment "tail2"))))