3 lines
69 B
Tcl
3 lines
69 B
Tcl
for {set i 1} {$i <= 5} {incr i} {
|
|
puts [string repeat "*" $i]
|
|
}
|
for {set i 1} {$i <= 5} {incr i} {
|
|
puts [string repeat "*" $i]
|
|
}
|