// arrshp.oad - test [] syntax for creating arrays
proc printArr(a)
{
    var shp;

    "typeof(a) = ", ?? a, "\n";
    shp = a.shape();

    "shape(a) = [";
    forall(shp[i]) {
        if (i > 0) " ";
        say(shp[i]);
    }
    "]\n";
}

proc main()
{
    var a;

    a = [1,2,3];
    printArr(a);
    a = [[1,2,3,4],[5,6,7,8],[9,10,11,12]];
    printArr(a);
}