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 .