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

package require control
set i 0; control::do {puts [incr i]} while {$i % 6 != 0}
set i 0; control::do {puts [incr i]} until {$i % 6 == 0}