main=readLn>>=interact.(#) n#s=last$s:[a++'\n':n#b|(a,c:b)<-map(`splitAt`s)[0..n-1],all(c<=)a]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page