(require (lib "xml.ss" "xml"))
(write-xml/content
         (xexpr->xml
          '(html (head "head") 
                 (body (p "1. zeile")
		       (p "2. zeile")))))