//
define global vari $a;
define array $w 10;
proc main argc ;
	print %0 $argc a;
	$1 = %2;
//	let array $w 10;
//	local $2 = 'zzzzzz';
	$a = 1;
	global $a = 'main';
	exec ip func 'A' 'B' 3 "" $w;
	print $a;
	print $w[0];
	print $21;
	return $ERROR;
end proc;

proc func argc argv (aa, bb, cc, dd, ee);
//proc func (, bb cc dd ee);
	print FL($ee);
//	let mappedarray %argv 1 10;
	print $argc %argv[4] $aa $bb $cc $dd;
	local $a = 'func';
//	print $(a) $('a');
	local $x = $w;
//	let array $x 10;
	let mappedarray $m 21 10;
	$x[0] = $a;
	$m[0] = 'MAPPED';
	print $x[0];
	print $m[0];
	return $ERROR;
end proc;
