The html.streams vocabulary provides a stream which implements Formatted output by constructing HTML markup in the form of xml.data types.
html-writer

<html-writer> ( -- html-writer )

with-html-writer ( quot -- xml )