Over print by notogawa

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