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]