var f:text;
    a:array[1..1000,1..1000]of longint;
    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:=n*n+1;
l:=n;
zz:=n*(k-1)+1;
for i:=n downto 1 do
 begin
  for j:=n downto k+1 do
       if a[i,j]=0 then
                         begin z:=z-1;
                         a[i,j]:=z;
                         end;
  z:=z-1;
  if z mod 2<>0 then
                 if i>1 then
                     begin a[i-1,n]:=z;z:=z-1;
                     end
                         else
                         begin
                     a[l,k-1]:=z;z:=z-1;
                     l:=l-1;
                     end;
  a[i,k]:=z;
  for j:=k-1 downto 1 do begin dec(zz);a[i,j]:=zz; end;
   end;
 z:=0;
assign(f,'tablete.out');rewrite(f);
 for i:=1 to n do
  begin
    for j:=1 to n do
     begin
      if  (j<k) and (a[i,j]=0) then
        begin
          inc(z);
          a[i,j]:=z;
          end;
        write(f,a[i,j],' ');
      end;
     writeln(f);
    end;
 close(f);
end.