ru23=Rule@@@Tuples[{StringTuples["AB",2],StringTuples["AB",3]}]
In[]:=
{AAAAA,AAAAB,AAABA,AAABB,AABAA,AABAB,AABBA,AABBB,ABAAA,ABAAB,ABABA,ABABB,ABBAA,ABBAB,ABBBA,ABBBB,BAAAA,BAAAB,BAABA,BAABB,BABAA,BABAB,BABBA,BABBB,BBAAA,BBAAB,BBABA,BBABB,BBBAA,BBBAB,BBBBA,BBBBB}
Out[]=
ru21=Rule@@@Tuples[{StringTuples["AB",2],StringTuples["AB",1]}]
In[]:=
{AAA,AAB,ABA,ABB,BAA,BAB,BBA,BBB}
Out[]=
Tuples[{%27,%28}]
In[]:=
Out[]=
ResourceFunction["InteractiveListSelector"][ParallelMapMonitored[MultiwaySystem[#,{"ABA"},4,"StatesGraph"]#&,%29]]
In[]:=
Out[]=
MultiwaySystem[{"AB""BAB","BA""A"},{"ABA"},6,"EvolutionPlot"]
In[]:=
Out[]=
LayeredGraphPlot[MultiwaySystem[{"AB""BAB","BA""A"},{"ABA"},6,"StatesGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[SimpleGraph[Rest@Flatten[Module[{t=0},NestList[(t++;Flatten[Function[s,(s[[2]]->{#,t})&/@Flatten[StringReplaceList[s[[2,1]],{"A""BBB","BB""A"}]]]/@#])&,{{"",1}{"A",1}},7]]],VertexShapeFunction->(Text[Framed[Style[#2[[1]],Black],FrameMarginsNone,FrameStyleDirective[Opacity[.4],Gray],BackgroundDirective[Opacity[.2],Gray]],#1,{0,0}]&)]]
In[]:=
Out[]=
MultiwaySystem[{"A""BBB","BB""A"},"A",7,"StatesGraph"]
In[]:=
Out[]=
MultiwaySystem[{"AB""BAB","BA""A"},"ABA",4,"EvolutionEventsGraph"]
In[]:=
Out[]=