In[]:=
ResourceFunction["InteractiveListSelector"][{#[[1,1]],Length[#]}->#[[1,2]]&/@GatherBy[ResourceFunction["ParallelMapMonitored"][Append[TMSummary[#,5],TMAppliesGraph[#,5]]#&,Select[Subsets[List/@TMRuleCases[2,2],{5}],Not@*TestDeterministic]],#[[1,1]]&]]
Out[]=
In[]:=
Now
Out[]=
Wed 6 Jan 2021 04:07:40GMT-5
In[]:=
NotebookSave[]