r;f(y,x,m){x=abs(m-x);r=y<m?x%m?f(y,x,m/2):y&y>m-2:-f(x,y,m);}j;main(i,a){for(a=2<<getchar()%8;i<a;)i+=20/putchar(++j%a?"\xa4\xe3"[f(i-j%2,j%a,a/2)|j&!f(i+1)]+124:10);}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).