Flatten nested arrays

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

{-Graphics-, -Graphics-, -Graphics-, -Graphics-, -Graphics-, -Graphics-}