Hi Rick,

Here's a rather unexpected way of making new magic squares from old.

A ring of magic powers!

x = magic(4);
print x [f=2.0];
do cycle = 1 to 8;
x = mod( x**5, 17);
print x [f=2.0];
end;

The original square, and the one from cycle 1, are rotated anticlockwise in steps of 90 degrees.

Can I make an animated heatmap to visualise something like this?