In[]:=
ResourceFunction["InteractiveListSelector"][{#[[1,1]],Length[#]}->#[[1,2]]&/@GatherBy[ResourceFunction["ParallelMapMonitored"][TMAppliesGraph[#,5]#&,Select[Subsets[List/@TMRuleCases[2,2],{2}],Not@*TestDeterministic]],#[[1]]&]]
Out[]=


,7
Add
,

,6
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,5
Add
,

,4
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,3
Add
,

,2
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,1
Add
,

,7
Add
,

,6
Add
,

,7
Add
,

,6
Add
,

,5
Add
,

,4
Add
,

,5
Add
,

,4
Add
,

,3
Add
,

,2
Add
,

,3
Add
,

,2
Add
,

,1
Add
,

,1
Add

Clear
Copy