kurz/tests/test.qbl

//valid,Hello, World!
//4242test2Falsetesttesttest:END:

"Hello, World!\n" print 43 foo foo deq


// Dequeues, enqueues 42 and 17, prints the head
function int => int foo
{
	deq 42 17 intToStr req print
}

"test2" print false
check
print


function bool => str check
{
	if
	{
		"True"
	}
	else
	{
		"False"
	}
}

function int => whileFunction
{
	dup
	0 req >
	req while
	{
		1 - 0 dup >
		"test" req req print req
	}
	deq
}

3 whileFunction