//
define array a 10 = ('%A%','%C%','%C%','%','%F%');
define array b 10 = (1,2,3,4,5,'AB','BC','CD','DE','EF');
define array BIN c 10 = (1,2,3,4,5,6,7,8,9,10);
proc main; 

	loop each x in b;
		print *x;
	end loop;

	loop each x in c;
		print *x;
	end loop;

	print arraybxp(b,0,b,0,c,0,5,'+');

	loop each x in b;
		print *x;
	end loop;

	print "*(*b + *c)";
	print "*(*b - *c)";
	print "*(*b & *c)";
	print "*(*b | *c)";

	return ERROR;
end proc;
