PROGRAM IS
	TYPE IARRAY IS ARRAY OF INTEGER;
	TYPE IIARRAY IS ARRAY OF IARRAY;
	VAR a := IARRAY[<2 OF 1, 2 OF 2>];
	VAR b := IIARRAY[< 2 OF a >];
BEGIN
	WRITE("b[0][0] is ", b[0][0]);
	WRITE("b[0][1] is ", b[0][1]);
	WRITE("b[1][0] is ", b[1][0]);
	WRITE("b[1][3] is ", b[1][3]);
	b[2][0] := 10;
END;