main=interact f f s=s++'\n':do(a,_:b)<-[span(>' ')s];f$a++b
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page