26 lines
237 B
Plaintext
26 lines
237 B
Plaintext
//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
|