Show[SMWXGraphicsStreamed[SMWEvolveListX[{"BDB""DAB","BDA""CAA","BCB""ABC","BCA""DAB","ADB""AAC","ADA""CBA","ACB""CAB","ACA""BAD","BDE""CE","BCE""DABE","EDB""EC","EDE""ECBE","EDA""ECBA","ADE""CBE","ECB""ECAB","ECE""EBADE","ECA""EBAD","ACE""BADE"},"ECE",30]]];
Show[DirectedNeighborsPictureR[SMWEvolveListNWX[{"BDB""DAB","BDA""CAA","BCB""ABC","BCA""DAB","ADB""AAC","ADA""CBA","ACB""CAB","ACA""BAD","BDE""CE","BCE""DABE","EDB""EC","EDE""ECBE","EDA""ECBA","ADE""CBE","ECB""ECAB","ECE""EBADE","ECA""EBAD","ACE""BADE"},"ECE",30],{0},NodeSize->.15,Hyperbola->True,Arrows->True,Symmetrized->False,Ribbon->True],DisplayFunction->$DisplayFunction];
Show[DirectedNeighborsPictureR[SMWEvolveListNWX[{"BDB""DAB","BDA""CAA","BCB""ABC","BCA""DAB","ADB""AAC","ADA""CBA","ACB""CAB","ACA""BAD","BDE""CE","BCE""DABE","EDB""EC","EDE""ECBE","EDA""ECBA","ADE""CBE","ECB""ECAB","ECE""EBADE","ECA""EBAD","ACE""BADE"},"ECE",30],{0},Hyperbola->False,Arrows->True,Symmetrized->False,Ribbon->False],DisplayFunction->$DisplayFunction];
Show[DirectedNeighborsPictureR[SMWEvolveListNWX[{"BDB""DAB","BDA""CAA","BCB""ABC","BCA""DAB","ADB""AAC","ADA""CBA","ACB""CAB","ACA""BAD","BDE""CE","BCE""DABE","EDB""EC","EDE""ECBE","EDA""ECBA","ADE""CBE","ECB""ECAB","ECE""EBADE","ECA""EBAD","ACE""BADE"},"ECE",100],{0},Hyperbola->False,Arrows->True,Symmetrized->False,Ribbon->False],DisplayFunction->$DisplayFunction];
MAToMWState[{{0,0,0,0,0},3}]
AACAA
SMWEvolveListNWX[MAToMWRule[marule2],MAToMWState[mastate],10]
{0{{1,3,3,{A,C,A}},{2,1,1,{A}},{6,1,1,{A}},{7,1,1,{A}}},1{{0,0,3,{A,C,A}},{2,2,2,{A,D}},{3,1,1,{B}}},2{{0,0,1,{A}},{1,0,2,{A,D}},{3,2,2,{C,B}},{4,1,1,{A}}},3{{1,0,1,{B}},{2,0,2,{C,B}},{4,2,2,{B,C}},{5,1,1,{A}}},4{{2,0,1,{A}},{3,0,2,{B,C}},{5,2,2,{D,A}},{10,1,1,{B}}},5{{3,0,1,{A}},{4,0,2,{D,A}},{6,2,2,{C,B}},{9,1,1,{A}}},6{{0,0,1,{A}},{5,0,2,{C,B}},{7,2,2,{C,A}},{8,1,1,{B}}},7{{0,0,1,{A}},{6,0,2,{C,A}},{8,2,2,{A,D}}},8{{6,0,1,{B}},{7,0,2,{A,D}},{9,2,2,{A,C}}},9{{5,0,1,{A}},{8,0,2,{A,C}},{10,2,2,{A,D}}},10{{4,0,1,{B}},{9,0,2,{A,D}}}}
Rest[DeleteCases[%301,{x_Integer,y_Integer,z_Integer,_}/;(x==0||y==0||z==0),Infinity]]
{1{{2,2,2,{A,D}},{3,1,1,{B}}},2{{3,2,2,{C,B}},{4,1,1,{A}}},3{{4,2,2,{B,C}},{5,1,1,{A}}},4{{5,2,2,{D,A}},{10,1,1,{B}}},5{{6,2,2,{C,B}},{9,1,1,{A}}},6{{7,2,2,{C,A}},{8,1,1,{B}}},7{{8,2,2,{A,D}}},8{{9,2,2,{A,C}}},9{{10,2,2,{A,D}}},10{}}
Show[DirectedNeighborsPictureR[%,{0},NodeSize->.15,Hyperbola->False,Arrows->True,Symmetrized->False,Ribbon->True]];