char*s,d[4561];b;x=1;y=48;f(i,j,k){j=s[j];b+j>96&s[k]==35?s[k]="1632345"[b*j%255%52%7]^(b<j^x*y<0)*7:b/y&*s>32&j>32&s[i]>32?s[i]=b^7:0;b=j;}main(c){for(;b?++s:read(--c%y,s=d);f(2*x,x,y*=x=-x),f(y-x,y,0),f(-y,0,x))b=*s;puts(d);}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).