(load "html.scm")
(use-modules (web html)
	     (oop goops)
	     (ice-9 pretty-print))

(let ((shtml-tree
       (xhtml:tag-tree->shtml
	(xhtml:dtd
	 (xhtml:html
	  (xhtml:head
	   (xhtml:title "Just Testing...")
	   (xhtml:meta #:atts '((generator . "Guile-Web 0.4.3")
				(content ."generator"))))
	  (xhtml:body
	   (xhtml:h1 "Tra la la")
	   (xhtml:p "I am sooooo coool. Hooray for paragraphs.")
	   (xhtml:ul #:atts '((type . "circle"))
		     (xhtml:li "I am an item.")
		     (xhtml:li #:atts '((type . "square")) 'my 'marker 'is 'a
			       '(square "and I have more than just a string"
					as #(my content)))
		     (xhtml:li '#(just finishing up)))
	   (xhtml:h1 (xhtml:strong "Bye now!"))))))))
  (pretty-print shtml-tree))