set r 1 while {$p > 0} { set r $r*$base set p [expr $p-1] }
if for switch break foreach while eval continue