LexMat(N:INTEGER):MAT
LexMat(3); Mat([ [1, 0, 0], [0, 1, 0], [0, 0, 1] ]) -------------------------------