Sub XMLCreateNames
Dim x As XMLBuilder
x = x.create("Names").attribute("xmlns", "List of Names")
x = x.element("Name1").element("ID").text("1").up().element("Name").text("Name 1").up().up()
x = x.element("Name2").element("ID").text("2").up().element("Name").text("Name 2").up().up()
Dim props As Map
props.Initialize
props.Put("{http://xml.apache.org/xslt}indent-amount", "2")
props.Put("indent", "yes")
Log(x.asString2(props))
End Sub