Posted to tcl by miguel at Wed Aug 06 18:11:20 GMT 2008view pretty

proc a {} {
    set body {}
    for {set i 0} {$i <100} {incr i} {
	append body "set foo$i 1;"
    }
    proc a {} $body
    a
    set x
}
a