// mdim.oad - test multiple dimensions proc main() { var a, i, j; a = new PackInt(2, 3); for (i = 0; i < 2; i++) { for (j = 0; j < 3; j++) { a[i,j] = 3*i + j; } } "a:\n"; for (i = 0; i < 2; i++) { for (j = 0; j < 3; j++) { say((j > 0) ? " " : "", a[i][j]); } "\n"; } "typeof(new PackChar(3,4)) = ", ?? (new PackChar(3,4)), "\n"; }