//
define array $b 10;
define h hash 10;
proc main;
	options %1 "" '' 0b100;
//	option 1 %1+0;
	print nval(1,'null');
	print nval('','null');
	$a = 2;
	print ndef('$a','');
	print ndef('$x','');
	print nval(ndef('$x','YYYY'),'XXX');
	print nval(ndef('$x',''),'X01');
	print nval(ndef('$x'),'X02');
	print nval(ndef('$b[0]'),'B0');
	print ndef('b[0]','NULL',1);
	print ndef('b[0]','NULL',0);
	print ndef('h[0]',,1);
	$y = $c;
	return ERROR;
end proc;
