Posted to tcl by Lectus at Sat Sep 08 00:37:56 GMT 2007view pretty
proc fill {} { for {set i 0} {$i <= 40} {incr i} {set ::x $::x$::x$::x } } set ::x "a" puts "!$::x!" fill puts "!$::x!" # It prints: # !a! # !! # What's up?
proc fill {} { for {set i 0} {$i <= 40} {incr i} {set ::x $::x$::x$::x } } set ::x "a" puts "!$::x!" fill puts "!$::x!" # It prints: # !a! # !! # What's up?