New in Wolfram Mathematica 6: Extended Array Operations  previous | next 
Flatten Nested Arrays
Mathematica 6 introduces powerful new primitives for handling nested arrays.
In[1]:=

Click for copyable input
ArrayPlot /@ 

 NestList[ArrayFlatten[# /. 1 -> {{1, 0}, {1, 1}}] &, {{1}}, 5]
Out[1]=