This is the title I gave to this "kinetic digital sculpture" of mine, filed to the Wolfram Tweet-a-Program program:
Here is the code:
Show@Graphics[
Table[NestList[
Translate[Scale[#, .5 + Random[]], 9 {Random[], Random[]}^3] &,
Circle[], 99], {j, 9}]]
And here's an output:
Attention, it may diverge!