Show[GraphicsRow[ListLabelWrapper[SMWXGraphicsStreamed[SMWEvolveListX[#,"ABAAB",10]]&/@{{"A""AB"},{"AB""BAA"},{"AB""AAB"},{"AA""B","BBB""ABAAB"},{"BAAB""ABAAB","AAAA""BA"},{"AABA""AB","AAB""BBAA","B""AABA"},{"B""BA","ABAB""AA","AAA""BB"},{"A""BAB","BBA""A"},{"BAB""AB","A""BBAB"},{"ABA""BAAB","BBBB""AA"}},-.03]]];
Show[GraphicsRow[ListLabelWrapper[SMWXGraphicsStreamed[SMWEvolveListX[#,"ABAAB",30]]&/@{{"AA""B","BBB""ABAAB"},{"A""BAB","BBA""A"},{"ABA""BAAB","BBBB""AA"},{"AA""B","BBAB""BA","B""AB"}},-.03]]];
Show[GraphicsRow[ListLabelWrapper[SMWXGraphicsStreamed[SMWEvolveListX[#,"ABAAB",5,Backward]]&/@{{"AA""B","BBB""ABAAB"},{"A""BAB","BBA""A"},{"ABA""BAAB","BBBB""AA"},{"AA""B","BBAB""BA","B""AB"}},-.03]]];
MapIndexed[ListPlot[StringLength/@SMWEvolveList[#,"ABAAB",50],PlotJoined->True,PlotLabel->BigFont[#2]]&,{{"AA""B","BBB""ABAAB"},{"AABA""AB","AAB""BBAA","B""AABA"},{"B""BA","ABAB""AA","AAA""BB"},{"A""BAB","BBA""A"},{"BAB""AB","A""BBAB"},{"ABA""BAAB","BBBB""AA"}}];
MapIndexed[ListPlot[StringLength/@SMWEvolveList[#,"ABAAB",250 ],PlotJoined->True,PlotLabel->BigFont[#2]]&,{{"AABA""AB","AAB""BBAA","B""AABA"},{"B""BA","ABAB""AA","AAA""BB"},{"A""BAB","BBA""A"},{"BAB""AB","A""BBAB"},{"ABA""BAAB","BBBB""AA"}}];
Show[GraphicsRow[ListLabelWrapper[SMWXGraphicsStreamed[SMWEvolveListX[#,"A",5]]&/@{{"A""AA"},},-.03]]];
From SMWSearch2.nb: