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