main=do c<-getContents\x0d putStr$"happy "++reverse(map s c)++" new "++c++" year!"\x0d s '('=')'\x0d s ')'='('\x0d s 'b'='d'\x0d s c=c
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page