m@main=getLine>>=putStrLn.last.f[0..165]drop.words>>m f z(%)[a,b,s]=s:[take x s++b++y%s|x<-z,y<-z,x%s==a++y%s]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page