//
define array $a 10;
define array BIN $b 10;
define mappedarray $m 11 5;
define mappedarray %p 1 5;
define mappedarray #s 1 5;
proc main;
	let option 5 1;
	print countv(10);
	$1 = LIST(1, 2, 3, 'A', 'B');
	print countv($1);
	setarray($a,0,1,2,3);
	print countv($a);
	setarray($b,0,1,2,3);
	print countv($b);
	setarray($m,0,1,2,3);
	print countv($m);
	print countv(%p);
	print countv(#s);
	print countv((1,2,3,4,5,6,7,8,9));
	return ERROR;
end proc;
