In[]:=
<<CombinatorEvolve`
In[]:=
all8=Import["/Users/sw/Dropbox/Physics/Data/Combinators/S-NT1e4-8.wxf"];
In[]:=
ResourceFunction["InteractiveListSelector"][Monitor[Table[ListLinePlot[Differences[SKCombinatorLeftmostOutermostLeafCounts[#,1000]],PlotRangeAll]#&@all8[[i]],{i,Length[all8]}],i]]
Out[]=
In[]:=
ResourceFunction["InteractiveListSelector"][ListStepPlot[Differences[SKCombinatorLeftmostOutermostLeafCounts[#,10000]],ImageSize500,PlotRangeAll]#&/@{s[s[s[s][s]]][s][s][s],s[s[s]][s][s[s]][s][s],s[s[s][s]][s][s[s]][s]}]
Out[]=
Size 11
Size 11