#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";
}