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