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