MultiwaySystem[{"AB""BA","BAA""A"},"ABBBBAAA",5,"StatesGraph"]
In[]:=
Out[]=
MultiwaySystem[{"A""AA","B""BB"},"AABB",5,"EvolutionGraph"]
In[]:=
Out[]=