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