main=f"" f x=do y<-getLine;putStrLn$x#y;f$x#y (a:x)#(b:y)=last(b:[a|b<'!']):x#y x#y=x++y
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page