main=f"" f l=do a<-getChar;putStr$maybe[a]show(lookup a$zip l[0..9]);f$[a|a>'@']++l
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page