// 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";
}