randomwordlist[6, 1/7,  100];

Sort[%];

freqcount[%]

freqvsrank[%11]

probfreqvsfreq[%11]

LogLogListPlot[%38,  PlotRange ->  All]

freqprob[%28]

Reverse[%]

LogLogListPlot[%53,  PlotRange ->  All,  
      PlotJoined ->  True]