//
//define array vari $a 100;
define array vari $a;
proc main;
	print a;
	$1 = 'XXX';
	$x = 'AAAA';
	$xyz = 'BBBB';
//	%1 = 1;
//	#1 = 1;
//	$a = 1234;
	$a[0] = 111;
	$a[1] = 222;
	$a[1]++ ;
//	loop 3;
		print $a[0] $a[1] $DATE DATETIME $1;
//		sleep 2;
//	end loop;
//	redefine array $DATE 10;
	$1 = ERROR;
//	undefine $a[0] $1 $x;
	undefine $a $1 $x;
//	undefine ERROR;
//	undefine %1;
//	undefine $(abs(1));
	undefine $(concat('x','y','z')) 'XYZ';
	print $a[0] $1 $x $xyz;
	return ERROR;
//	return DATE;
end proc;
