//
define global x=1;
//define ar 10;
proc main;
//	$1 = 1;
//	$a = 2;
	local x=10;
//	ar[0]='X';
//	print $1 %1 #1;
//	print $a ar[0];
	loop 2;
//		$1++;
//		print "global x";
		print x;
		fa();
		undefine x;
	end loop;
//	print $1;
	print $x;
	return ERROR;
end proc;

func fa;
//	undefine x;
//	local x=20;
	print x;
	return ERROR;
end func;
