RosettaCodeData/Task/Loops-Do-while/Tcl/loops-do-while-3.tcl

set i 0
while true {
    puts [incr i]
    if {$i % 6 == 0} break
}