(doseq(w(cdr(remove-duplicates`("",@(set'x(sort(loop while(listen)nconc(mapcar(lambda(s)(delete-if-not'alpha-char-p s))(asdf::split(read-line))))'string-lessp))):test'equalp)))(format t"~D ~(~A~)
"(count w x :test'equalp)w))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).