5 ####################################################
6 # Stack overflow when writing large shapes to XML
7 ####################################################
13 if { [regexp "OK" $info] != 1 } {
14 puts "Error: Stack is overflow"
16 puts "OK: Stack is good"