tcl: fundamental sample
tcl: loop and scope(upvar) example
tcl: code as argument of command(metaprogramming)