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?