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