var f:text;
    a:array[1..1000,1..1000]of longint;
    c,zz,l,j,n,i,k:longint;
    z:longint;
begin
assign(f,'tablete.in');reset(f);
read(f,n,k);
{for i:=1 to n do for j:=1 to n do a[i,j]:=0;}
z:=0;
zz:=n*(k-1);
assign(f,'tablete.out');rewrite(f);
i:=1;
for j:=1 to k-1 do
        begin inc(z);a[i,j]:=z; end;
     for j:=k to n  do
        begin inc(zz);a[i,j]:=zz;
        end;
 if a[1,k]mod 2=1 then
           a[1,k]:=n*(k-1);
for i:=2 to n do
    begin
     for j:=1 to k-1 do
        begin inc(z);a[i,j]:=z; end;
     for j:=k to n  do
        begin inc(zz);a[i,j]:=zz;
        end;
     if a[i,k] mod 2=1 then
        begin
          c:=a[i,k];a[i,k]:=a[i-1,n];a[i-1,n]:=c;
        end;
    end;
if a[n,k-1]=a[1,k] then a[n,k-1]:=n*(k-1)+1;

for i:=1 to n do
 begin
  for j:=1 to n do
       write(f,a[i,j],' ');
       writeln(f);
  end;

 close(f);
end.