import List main=interact$unlines.(1#).groupBy(f$f.(==)).sortBy(f$f.compare).lines f=(.(0-).read.last.words) n#(a:x)=map(shows n" "++)a++(n+length a)#x n#x=[]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page