Paste: power-mezz

REBOL []

rel: does [ do %html-parser.r ]
---: does [ print "--------------------" ]

do %power-mezz/mezz/module.r
load-module/from %power-mezz/

module [
	Imports: [
		%parsers/rule-arguments.r
		%parsers/common-rules.r
		%mezz/text-encoding.r
		%parsers/ml-parser.r
		%mezz/collect.r
		%mezz/expand-macros.r
		%mezz/macros/trees.r
		%mezz/trees.r
		%mezz/niwashi.r
		%mezz/load-html.r
	]
] [

	p: {<html><title>t</title><body><h2>HEADING</h2><p>first para</p><p>second para</p></body></html>}

	print HM: mold H: load-html p

	---

	print H/4/2/1/1

	---

	print H/4/2/1/2
]
halt

=prints=============================

[root none [] [html [...] [] [head [...] [] [title [...] [] [text [...] [value "t"]]]] [body [...] [] [h2 [...] [] [text [...] [value "HEADING"]
]] [p [...] [] [text [...] [value "first para"]]] [p [...] [] [text [...] [value "second para"]]]]]]
--------------------
html
--------------------
** Internal Error: Stack overflow
** Where: module
** Near: print H/4/2/1/2