In[]:=
ResourceFunction["SubstitutionSystemCausalGraph"]["A""AA","A",5]
Out[]=
In[]:=
LayeredGraphPlot[ResourceFunction["SubstitutionSystemCausalGraph"][{"A""AB","B""A"},"A",5]]
Out[]=
In[]:=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][{"A""AB","B""A"},"A",5,"CausalGraphStructure"],AspectRatio1/2]
Out[]=
In[]:=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][{"A""AB","B""A"},"A",5,"CausalGraph"],AspectRatio1/2]
Out[]=