Show[SPGraphics[MWEvolveList[#,{"A"},7]]]&/@{{"A""AA","AA""A"},{"A""A","A""AA","AA""A"},{"A""AB","B""A"}}
Show[GraphicsRow[SPGraphics[MWEvolveList[#,{"A"},9]]&/@{{"A""AA","AA""A"},{"A""A","A""AA","AA""A"},{"A""AB","B""A"}}]];
ListPlot[XMWEvolveTotals[#1,{#2},#3],PlotJoinedTrue]&
ListPlot[XMWEvolveTotals[#,{"A"},7],PlotJoinedTrue]&/@{{"A""AA","AA""A"},{"A""A","A""AA","AA""A"},{"A""AB","B""A"}}
GrowthGraphic[data_]:=Module[{w},w=Flatten[Table[{{i-1,data[[i]]},{i,data[[i]]}},{i,Length[data]}],1];Surround[Graphics[{{GrayLevel[.7],Polygon[Join[{{0,0}},w,{{Length[data],0},{0,0}}]],GrayLevel[0],AbsoluteThickness[.25],Line[w]}},AspectRatio1/4]]]
Show[GrowthGraphic[XMWEvolveTotals[#,{"A"},13]]]&/@{{"A""AA","AA""A"},{"A""A","A""AA","AA""A"},{"A""AB","B""A"}};
Show[RPadGridGraphics[Sort[FromChars/@MWEvolve[#,{"A"},10]]]]&/@{{"A""AA","AA""A"},{"A""A","A""AA","AA""A"},{"A""AB","B""A"}};
Show[RPadGridGraphics[Sort[FromChars/@MWEvolve[#,{"A"},9]]]]&/@{{"A""AA","AA""A"},{"A""A","A""AA","AA""A"},{"A""AB","B""A"}};
Show[LPadGraphics[Sort[FromChars/@MWEvolve[#,{"A"},7]]]]&/@{{"A""AA","AA""A"},{"A""A","A""AA","AA""A"},{"A""AB","B""A"}};