CellGraphics[list_]:=Graphics[Raster[1-Reverse[list]],AspectRatioAutomatic]
CellGraphics[list_,k_]:=Graphics[Raster[(k-1-Reverse[list])/(k-1)],AspectRatioAutomatic]
Show[CellGraphics[NestList[(Last/@Rest[FAStep[lamp,1,#]])&,PadRight[{1},50],30]]]
⁃Graphics⁃
Show[GraphicsArray[Partition[Function[fa,CellGraphics[NestList[(Last/@Rest[FAStep[fa,1,#]])&,PadRight[{1},50],30]]]/@AllFAs[2,2],8]]];
Show[GraphicsArray[Partition[Function[fa,CellGraphics[NestList[(Last/@Rest[FAStep[fa,1,#]])&,PadRight[{1},51],30]]]/@AllFAs[2,2],8]]];
NOTE: This drops cases where there is only logarithmic growth.
For some reason, various interesting cases are being dropped.