In[]:=
Function[r,GraphicsRow[MultiwaySystem[r,StringTuples["AB",3],4,#]&/@{"StatesGraphStructure","CausalGraphStructure"},ImageSize200,FrameAll,FrameStyleLightGray]]/@EnumerateSubstitutionSystemRules[{12,11},2]
Out[]=
In[]:=
UndirectedGraph[MultiwaySystem[#,StringTuples["AB",3],4,"CausalGraphStructure"],ImageSize90,FrameTrue,FrameStyleLightGray]&/@EnumerateSubstitutionSystemRules[{12,11},2]
Out[]=