program tablete;
var n,k,i,j:longint;
    f:text;

begin
assign(f,'tablete.in'); reset(f);
readln(f,n,k);
close(f);
assign(f,'tablete.out'); rewrite(f);

if(n mod 2 = 0) then begin

if (k mod 2 = 0) then begin
      for i:=0 to n-1 do begin
          for j:=1 to n do
              write(f,i*n + j,' ');
              writeln(f);
      end;
end
else begin
     for i:=0 to n-3 do begin
         for j:=1 to n do
             write(f,i*n +j+1,' ');
         writeln(f);
     end;

     for j:=1 to n-1 do write(f,(n-2)*n + j + 1,' ');
     writeln(f,n*n);

     write(f,1,' ');
     for j:=1 to n-1 do write(f,(n-1)*n + j,' ');

end;

end
else begin

if (k mod 2 = 0) then begin
      for i:=0 to n-2 do begin
          for j:=1 to n do
              write(f,(n+1)*i + j,' ');
          writeln(f);
      end;

      for j:=1 to n-1 do write(f,(n+1)*j,' ');
      writeln(f,n*n);
end
else begin
     for i:=0 to n-2 do begin
         write(f,(n+1)*i + 1,' ');
         for j:=2 to n do write(f,(n+1)*i+1+j,' ');
         writeln(f);
     end;
     for j:=0 to n-2 do write(f,(n+1)*j+2,' ');
     writeln(f,n*n);

end;

end;

close(f);
end.