//
//define mappedarray $a "" 10;
define mappedarray $a 1 10;
//define mappedarray %a 1 "" 5;
//define mappedarray $a '' 5 '';
define mappedarray %a 1 10;
//define mappedarray #a 1 10;
proc main;
	print %() %a $a;
	print *%() *%a *$a;
	print %()[1];
	print (%a)[0];
	a[2] = %a;
	print a[2][0];

	print %() $() #();
	$1 = 1;
	$11 = 11;
	print $0 $a[0];
//let	%1 = 'B';
//	let %a[0] = 'C';
	print %0 %a[0];
	print #0 #a[0];
	for each x in %a;
		print *x;
	end for;
	for each x in %();
		print *x;
	end for;
	print *%a;
	print *(%());
	for each x in $a;
		print *x;
	end for;
	for each x in $();
		print *x;
	end for;
	print *$a;
	print *$();
	print %()[1];
	print %() $() #();
	y = *%() + *$();
	print *y;

	return ERROR;
end proc;
