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