#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.