Wolfram Cloud Page

RasterGraphics[data_,lab_]:=Graphics[Raster[1-Reverse[data]],AspectRatioAutomatic,PlotLabellab]

With[{w=AllFAs[2,2]},Show[GraphicsArray[Partition[Table[RasterGraphics[FAEvolveList[ToFARule[i,{2,2}],1,Table[0,{100}],60],i],{i,0,255}],8]]]];

With[{w=AllFAs[2,2]},Show[GraphicsArray[Partition[Table[RasterGraphics[FAEvolveList[w[[i]],1,Table[0,{100}],60],i],{i,Length[w]}],8]]]];