In[]:=
First/@GatherBy[ParallelMapMonitored[TimeConstrained[Rasterize[Quiet@SubstitutionSystemCausalGraph[#,"A",3],RasterSize50],2]#&,causals[[7]]],First]
Out[]=
In[]:=
First/@GatherBy[ParallelMapMonitored[TimeConstrained[Rasterize[Quiet@SubstitutionSystemCausalGraph[#,"A",3],RasterSize50],2]#&,causals[[8]]],First]
Out[]=
Interesting Cases
Interesting Cases