mwp[{rr_,init_},t_,rs_:0.2]:=Surround[MWEvolGraphic[FromChars[MWEvolveListT[rr,{init},t]]]]
Show[mwp[{{"ABA""BAAB","BBBB""AA"},"ABAAB"},8]];
Show[mwp[{{"ABA""BAAB","BBBB""AA"},"ABAAB"},9]];
Show[SMWXGraphicsStreamed[SMWEvolveListX[{"ABA""BAAB","BBBB""AA"},"ABAAB",9]]];
Show[mwp[{{"A""A","B""B"},"ABAAB"},8]];
Show[mwp[{{"A""B","B""A"},"ABAAB"},5]];
Show[mwp[{{"A""B","B""A"},"ABAAB"},3]];
Show[mwp[{{"A""B","B""A"},"ABAAB"},2]];
Show[mwp[{{"AB""AB","BA""BA"},"ABAAB"},4]];
