-----
(define html-rules `((literal *preorder* . ,(lambda (t b) b))
		     ;(textarea . ,sxml->PCDATA)
		     (textarea *preorder* . ,(lambda (t b)
				    (cons t (map
					      (lambda (c)
						(with-output-to-string
						  (lambda ()
						    (waffle-sxml->html c))))
					      b))))
		     . ,universal-conversion-rules*))
-----

#;>  (waffle-sxml->html '(textarea "This is \"my\" hub.<x>" (subtree (@ (y "z")) "are us")))
textareaThis is &quot;my&quot; hub.&lt;x&gt;
<subtree y="z">are us</subtree>#t


(waffle-sxml->html '(textarea (@ (hello "this is \"my\" life")) "This is \"my\" hub.<x>" (subtree (@ (y "z")) "are us")))
textarea@ hello="this is &quot;my&quot; life"This is &quot;my&quot; hub.&lt;x&gt;
<subtree y="z">are us</subtree>#t