kurz/tests/array_tests.qbl

//valid,0000
//0100
//2100
//2103
//:END:
arr test { int 4 }

function => dump
{
	true 0
	while
	{
		// i
		dup test.read req intToStr req print
		1 + test.length dup < req
	}
	deq "" println
}

dump
1 1 test.write
dump
0 2 test.write
dump
3 3 test.write
dump