Show[RPadGraphics[Sort[FromChars/@Last[MWEvolveList[#1,{"A"},10]]]]]&/@​​{{"A""AA","AA""A"},{"A""A","A""AA","AA""A"},{"A""AB","B""A"}};
Show[RPadGraphics[Sort[FromChars/@Last[MWEvolveList[#1,{"B"},8]]]]]&/@​​{{"B""AA","B""AA"},{"B""AA","B""AB"},{"B""AA","B""BA"},{"B""AA","B""BB"},{"B""AB","B""AB"},{"B""AB","B""BA"},{"B""AB","B""BB"},{"B""BA","B""BA"},{"B""BA","B""BB"},{"B""BB","B""BB"}};
{"B"->"AB","B"->"BA"}
<<"Universe-97/TimeNetworks.m"
Table[RandomSMW[2,4],{10}]
{{BBA,AAAAA},{ABAAB,BAAAAAAA},{AAABB,ABBBAAAB},{BAABB,ABAA},{AAABBABB,AABBAAA},{ABB,BB},{ABBAB,AAA},{BAABBB,BBBBA},{BBBBA,BBBBABA},{ABAAA,AABABB}}
MapIndexed[Show[LabelWrapper[RPadGraphics[Sort[FromChars/@Last[MWEvolveList[#1,{"BABBA"},8]]]],BigFont[#2]]]&,%362];​​
Table[RandomSMW[2,4],{10}]
{{BABAA,AABBA},{BAABAB,ABABBBBB},{BBBA,BBBABB},{BBBA,BAAABA},{ABA,BABAB},{AABBAAB,BAAAB},{BBAAABB,BABBA},{BBBBBA,BABA},{AABBB,BABB},{BAABA,BBBAAA}}
MWEvolveSS[rule_,init_,t_,max_:300]:=Catch[Nest[If[Length[#]>300,Throw[#],MWStep[rule,#]]&,init,t]]
MapIndexed[Catch[Show[LabelWrapper[RPadGraphics[Sort[FromChars/@If[Length[#]<1,Throw[{}],#]&@MWEvolveSS[#1,{"BABBA"},8]]],BigFont[#2]]]]&,%372];​​