RosettaCodeData/Task/Loops-For/Tcl/loops-for-2.tcl

for {set i 1} {$i <= 5} {incr i} {
    puts [string repeat "*" $i]
}