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 (k mod 2 = 0) then begin
      for i:=0 to n-1 do begin
          for i:=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;

close(f);
end.