In[]:=
Union[Table[RandomWolframModelRule[{{2,3}}{{4,3}},3],50]]
Out[]=
In[]:=
ParallelMapMonitored[SafeHyperModelTestButton[#,10,4]&,%36]
Out[]=
In[]:=
RulePlot[WolframModel[{{1,1,2},{1,2,3}}{{1,3,3},{2,2,2},{3,1,1},{3,1,2}}]]
Out[]=
In[]:=
WolframModel[{{1,1,2},{1,2,3}}{{1,3,3},{2,2,2},{3,1,1},{3,1,2}},Table[0,2,3],8]
Out[]=
In[]:=
HypergraphPlot[%["FinalState"]]
In[]:=
Select[%36,NewVerticesQ]
Out[]=
In[]:=
ParallelMapMonitored[SafeHyperModelTestButton[#,10,4]&,%]
Out[]=
In[]:=
SafeModelTest[{{1,1,2},{2,1,1}}{{1,1,1},{2,2,3},{3,1,2},{3,3,2}},25,10]
Out[]=

{{2,3}}{{7,3}},3

In[]:=
Select[Union[Table[RandomWolframModelRule[{{2,3}}{{7,3}},3],50]],NewVerticesQ]
Out[]=

{{2,3}}{{7,3}},5