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