<<MultiwaySystems/Multiway.m
smwfbrules={{"AB""BA","BBA""BAAB"},{"BBBB""B","ABA""BAAB"},{"AAA""ABAB","BA""AB","BBB""BAAB"},{"BBBB""BBBA","AAAB""A","ABA""BAAB"},{"BBBB""AA","ABA""BAAB"},{"BBA""ABA","AA""BAB"}};
MapIndexed[Show[MWNetGraphic[Select[MWEvolveListT[#,{"ABAAB"},20],(Length[#]<100)&]],PlotLabel->#2,PlotRange->All,DefaultFont->{"Courier",12.}]&,smwfbrules];
smwrules={{"A""AA"},{"A""AB","B""A"},{"BAB""AB","A""BBA"},{"BB""AB","AA""BBB"},{"AA""B","BBAB""BA","B""AB"},{"AABA""AB","AAB""BBAA","B""AABA"},{"AAAA""ABBBA","BA""AA"},{"BBA""ABA","AA""BAB"}};
MapIndexed[Show[MWNetGraphic[Select[MWEvolveListT[#,{"ABAAB"},6],(Length[#]<100)&]],PlotLabel->#2,PlotRange->All,DefaultFont->{"Courier",12.}]&,smwrules];