program jjj;
uses crt;
const nmax=100;
type tarr=array[1..nmax,1..nmax] of integer;
var a:tarr;
i,j,n,k:integer;
BEGIN clrscr;
readln(n);
for i:=1 to n do begin if i mod 2= 1 then k:=1 ELSE k:=3;
for j:=1 to n do begin a[i,j]:=k;
if k=4 then k:=1 else inc(k);
end;
end;
for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4);
writeln;
end;
readln;
END .