Posted to tcl by Lectus at Sat Sep 08 00:37:56 GMT 2007view raw

  1. proc fill {} { for {set i 0} {$i <= 40} {incr i} {set ::x $::x$::x$::x } }
  2.  
  3. set ::x "a"
  4. puts "!$::x!"
  5.  
  6. fill
  7.  
  8. puts "!$::x!"
  9.  
  10. # It prints:
  11. # !a!
  12. # !!
  13.  
  14. # What's up?