#if, elseif, else

if {$myNumber == 5} {

    puts "My Number is Five \n";

} elseif {$myNumber == 3.14} {

    puts "My Number is Pi \n";

} else {

    puts "My Number is neither Five nor Pi \n\n";

}

​

#while loop

while {$myNumber != 0} {

    puts "My Number is: $myNumber";

    incr myNumber -1;

}

​

puts "\n";

​

#for loop

for {set myNumber 0} {$myNumber < 5} {incr myNumber} {

    puts "My Number is: $myNumber";

}

puts "\n";

​

#foreach loop

foreach currentElement $myList {

    puts "The current element is: $currentElement";

}