kurz/tests/while.qbl

//valid,10987654321falsefalse
//:END:

import "../std.qbl"

true while
{
	false
}

10 0 dup > req
// true 10
while
{
	// i
	dup intToStr req print
	1 - 0 dup > req
}
deq

true true true while
{
	false
}
boolToStr boolToStr print println