(B:=(stdin upToEnd asLowercase select:[:c|c<$!|c isLetter])subStrings asBag)asSet asSortedCollection do:[:w|stdout<<(B occurrencesOf:w)<<$ <<w;nl]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page