//
define array global $d 10;
define array int     $a 10;
//define array double  $d 10;
//define array char    $c 10;
define array char(4) $c 10;
//define array $a 10;
//define array global $d 1;
define array dec(10,2) $dec 10;
proc main;
	$a[0] = 1.0;
	$a[1] = 10;
	$d[2] = 2.5;
	$c[3] = 'ABCDEF';
	$c[4] = 'XYZ0123';
	$a[1]++;
	print $a[1] $a[$a[0]];
	print $a[1] $d[2] $c[3] $c[4];
	print $c[3];
	$dec[0] = 3;
	$dec[1] = 0.55;
	$dec[2] = ++$dec[0];
	print $dec[0] $dec[1] $dec[0]*$dec[1] ++$dec[0] $dec[0] $dec[2];
	return ERROR;
end proc;
