Sub Activity_Create(FirstTime As Boolean)
Dim x As XMLBuilder
x = x.create("list")
x = x.e("depot").a("date", "date")
For i = 1 To 10
x = x.e("article").text("Item #" & i).up
Next
x = x.up
x = x.up
Dim props As Map
props.Initialize
props.Put("indent", "yes")
Log(x.asString2(props))
End Sub