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 )