1# Create $childNum^2 elements
2
3set childNum 50
4catch {set childNum $numChildren}
5set testNum 10
6catch {set testNum $numTests}
7
8time {
9    set doc [dom::DOMImplementation create]
10    set top [dom::document createElement $doc Test]
11    for {set i 0} {$i < $childNum} {incr i} {
12	set child [dom::document createElement $top Top]
13	for {set j 0} {$j < $childNum} {incr j} {
14	    dom::document createElement $child Child
15	}
16    }
17} $testNum
18
19