words=ToLowerCase[StringCases[Import["ExampleData/USConstitution.txt"],WordCharacter..]];

Length[words]

Length[Union[words]]

ListLogPlot[Sort[Last/@Tally[words]],PlotRange->All]

Take[Sort[Reverse/@Tally[words]],-10]