In[]:=
MultiwaySystem[{"A""AA","A""BAB"},{"AA","BAB"},3,"StatesGraph"]//LayeredGraphPlot
Out[]=
In[]:=
MultiwaySystem[{"A""AA","A""BAB"},{"AA","BAB"},3,"StatesGraph"]
Out[]=
In[]:=
MultiwaySystem[{"A""AA","A""BAB"},{"BAB"},2,"EvolutionGraph"]
Out[]=
In[]:=
MultiwaySystem[{"AA""A","AB""BA"},{"AB","ABA"},3,"StatesGraph"]
Out[]=
