# Calculate and print small matrix AA'
a <- matrix(1:12,3,4);
a%*%t(a)