Tcl Example #2" ?> Something you can't do in Perl, Python or PHP is create new command structures: 
proc do {body while expression} {
    uplevel $body
    while { [uplevel expr $expression] } {
	uplevel $body
    }
}

set i 0
do {
    puts $i
    incr i
} while {$i < 0}