#define w a[i,j] var a:array[byte,byte]of byte;i,j,k,l,m,n,x,y,z:comp=30;begin read(n);x:=1;y:=0;repeat w:=1-w;z:=x;x:=y*w*2-y;y:=z-z*w*2;i:=i-x;j:=j+y;k:=min(i,k);l:=max(i,l);m:=min(j,m);n:=n-1until n<1;for j:=m to 99do for i:=k to l do write(chr(w*3+32),^j:i div l)end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).