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

for {set lines 1} {$lines <= 5} {incr lines} {
    for {set i 1} {$i <= $lines} {incr i} {
        puts -nonewline "*"
    }
    puts ""
}