kurz/tests/while.qbl
2022-12-18 04:05:50 +01:00

22 lines
167 B
Plaintext

//valid,10987654321falsefalse
//:END:
true while
{
false
}
10 0 dup > req
while
{
dup print
1 - 0 dup > req
}
deq
true true true while
{
false
}
print println