rot13 by notogawa

import Char
main=interact$map$chr.f.ord
f x|isAlpha$chr x=x+13-26*div(mod x 32)14|0<1=x

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page