var a:array[1..1000,1..1000] of longint;
v:array[1..1000000] of 0..1;
n,k:integer;  spatiu,i,j,nr,ind:longint;
f:text;
procedure citire;
begin
assign(f,'tablete.in');reset(f);
read(f,n,k);
close(f);
end;
procedure scrie;
var i,j:integer;
begin
assign(f,'tablete.out');rewrite(f);
for i:=1 to n do
    begin
    for j:=1 to n do
        write(f,a[i,j],' ');
    writeln(f);
    end;
close(f);
end;
begin
citire; nr:=2;
for i:=1 to n do
         if i*k mod 2=0 then
         begin
         a[i,k]:=i*k;
         v[i*k]:=1;
         end
         else
         begin
         a[i,k]:=i*k+1;
         v[i*k+1]:=1;
         end;
ind:=1;
for i:=1 to n do
    for j:=1 to k-1 do
         begin
         if v[ind]=1 then inc(ind);
         a[i,j]:=ind;
         inc(ind);
         end;
inc(ind);
for i:=1 to n do
    if i mod 2=1 then
    for j:=k+1 to n do
    begin
         a[i,j]:=ind;
         inc(ind);
   end
   else
   for j:=n downto k+1 do
    begin
         a[i,j]:=ind;
         inc(ind);
   end;
scrie;
end.