main=getLine>>=([]#).words x#y=putStrLn(unwords$x++y)>>(x++[d])#(e:c)where(a:b:c)=y;(d,e)=splitAt(length b)$a++b
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page