6 lines
68 B
Tcl
6 lines
68 B
Tcl
|
set i 0
|
||
|
|
while true {
|
||
|
|
puts [incr i]
|
||
|
|
if {$i % 6 == 0} break
|
||
|
|
}
|