type matrice=array[1..1000,1..1000] of integer;
var n,k,i,j:integer;
    f,g:text;
    c:matrice;
procedure matrice1(var c:matrice);
var i,j,h:integer;
begin
h:=1;
for i:=1 to n do
 for j:=1 to k do
 begin
 c[i,j]:=h;
 inc(h);
 end;
for i:=1 to n do
for j:=k+1 to n do
begin
c[i,j]:=h;
inc(h);
end;
end;


procedure mat(var c:matrice);
begin
if k mod 2=0 then matrice1(c);
end;

begin
assign(f,'tablete.in'); reset(f);
readln(f,n,k); close(f);
mat(c);
assign(g,'tablete.out'); rewrite(g);
for i:=1 to n do
begin

for j:=1 to n do
write(g,c[i,j],' ');
writeln(g);
end;
close(g);
end.