main=interact$f mod.map fromEnum f(%)s=[toEnum$x+sum[(s!!53%28+x%32)%26-x%32+1|x>64,x/=95]|x<-s]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page