program tablete;
var  nr1,nr2,i,n,j,k:longint;
     f1,f2:text;
     p:shortint;
begin
assign(f1,'tablete.in');
reset(f1);
read(f1,n,k);
close(f1);
assign(f2,'tablete.out');
rewrite(f2);
nr1:=1;
nr2:=n*k+1;
if (k mod 2=0) and (n mod 2=0) then
  for i:=1 to n do
    begin
    for j:=1 to n do
      begin
      write(f2,nr1,' ');
      nr1:=nr1+1;
      end;
    writeln(f2);
    end;
nr1:=1;
if (k mod 2=0) and (n mod 2=1) then
  begin
    for i:=1 to n do
      begin
      for j:=1 to k do
        begin
        write(f2,nr1,' ');
        nr1:=nr1+1;
        end;
       for j:=k+1 to n do
        begin
        write(f2,nr2,' ');
        nr2:=nr2+1;
        end;
        writeln(f2);
      end;
 end;
nr1:=2;
p:=1;
{if (k mod 2=1) and (n mod 2=0) then
  for i:=1 to n-1 do
    begin
    for j:=1 to n do
      begin
      write(f2,nr1,' ');
      nr1:=nr1+1;
      end;
    writeln(f2);
    end;
    write(f2,p,' ');
    for i:=n-1 to n-1 do
      begin
      for j:=2 to n do
        begin
        write(f2,nr1,' ');
        nr1:=nr1+1;
        end;
      end;}



    writeln(f2);







close(f2);
end.