TCL/TK - Bloco de comandos

Pode-se agrupar comandos em blocos, colocando-se todos os comando entre chaves:

if {$x == 1}  {

     set y 1

     set z 2

}

O comando anterior execurá o bloco {set y 1; set z 2} caso o conteúdo da variável x seja 1.