(require (lib "xml.ss" "xml"))
(write-xml/content
	 (xexpr->xml
	  '(html(head "head") 
		(body (form ((action "http://some.yes.no")
			     (method "post"))
			    (input ((type "text")
				    (name "who"))))))))