var f:text;
    z1,z2,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);
z1:=0;z2:=n*(k-1);
 for i:=1 to n do
  begin
    for j:=1 to k-1 do
     begin inc(z1);
       write(f,z1,' ');
     end;for j:=k to n do
      begin inc(z2);write(f,z2,' '); end;
       writeln(f);
    end;
 close(f);
end.