a = reshape ((/(i * i, i = 1, 100)/), (/10, 10/))