//
define xa[10] = 1,2,3,4,5,6,7,8,9,10;
define xb[10] =(1,2,3,(4,5,(6,7)),8,9,10);
 
proc main;
	print *xa;
	print *xb;
	for each x in 1,2,3,4,5;
		print *x;
	next;
	for each y in (1,2,(3,4),5);
		print *y;
	next;

	a = (100,200);
	print a;
	(a) = (1,2);
	print a;
	a = 11, b = 12, c = 13;
	print a b c;
	(d,a+1)=100;
	print a d;
	(a,b,c) = (3,(4,5));
	print a b c;
	(a,b,c) = (6,7);
	print a b c;
	(a,b,c) = (8);
	print a b c;
	(a,b,c) = 'A';
	print a b c;
	(a,b,c) = 'B','C';
	print a b c;
	(a,b) = (9,10,11);
	print a b c;
	a = 111, b = 112, c = 113;
	print a b c;
	print (1,2,3)+(4,5,6);

	w = func1(*(1,2,3,4,5));
	exec ip proc1 *(1,2,3,4,5);

	return ERROR;
end proc;

func func1(x);
	print x;
	return ERROR;
end func;

proc proc1(x);
	print x;
	return ERROR;
end proc;
