File standardInput contents lowercase split map(do(foreach(i,v,if(v isLetter,0,atPut(i,42))))removeSeq("*"))select(>"")uniqueCount sort map(reverse join(" ")println)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).