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