New in Wolfram Mathematica 6: Extended Array Operations  previous | next 
Join Arrays at Any Level
Mathematica 6 introduces further generalizations in several functions that make it even easier to perform list manipulation.
In[1]:=

Click for copyable input
ArrayPlot /@ NestList[Join[#, #, 2] &, {{1, 0}, {0, 1}, {1, 1}}, 3]
Out[1]=