NestList[Grid[{{#,#},{#,#}},Frame->All]&,x,4]