In[]:=
ResourceFunction["WolframModel"][{{1,2},{2,3}}{{4,2},{4,1},{2,1},{3,4}},​​{{1,2},{2,3},{3,4},{4,1}},8,"FinalStatePlot"]
Out[]=