In[]:=
ResourceFunction["InteractiveListSelector"][{#[[1,1]],Length[#]}->#[[1,2]]&/@GatherBy[ResourceFunction["ParallelMapMonitored"][TMAppliesGraph[#,5]#&,Select[Subsets[List/@TMRuleCases[2,2],{2}],Not@*TestDeterministic]],#[[1]]&]]
Out[]=
Clear |
Copy |