In[]:=
GenerationalMultiwaySystem[{"A""AB","A""BA"},{"A"},4,"StatesGraph"]
Out[]=
In[]:=
MultiwaySystem[{"A""AB","A""BA"},{"A"},4,"StatesGraph"]
Out[]=