var v:array[1..1000000] of longint;
vv:array[1..1000] of longint;
n,k:integer;  ii,spatiu,i,j,nr,iii:longint;
f:text;
procedure citire;
begin
assign(f,'tablete.in');reset(f);
read(f,n,k);
close(f);
end;
begin
citire;
for i:=1 to n*n do v[i]:=i;
citire; nr:=2;
for i:=1 to n do
         if i*k mod 2=0 then
                begin
                vv[i]:=i*k;
                v[i*k]:=0;
                end
            else
                begin
                vv[i]:=i*k+1;
                v[i*k+1]:=0;
                end;
ii:=1;  iii:=k*n;
assign(f,'tablete.out'); rewrite(f);
for i:=1 to n do
    begin
    for j:=1 to k-1 do
             begin
            if v[ii]<>0 then write(f,v[ii],' ')
               else begin
                    inc(ii);
                    write(f,v[ii],' ');
                    end;
               inc(ii);
               end;
    write(f,vv[i],' ');
    for j:=k+1 to n do
        begin
            if v[iii]<>0 then write(f,v[iii],' ')
               else begin
                    inc(iii);
                    write(f,v[iii],' ');
                    end;
               inc(iii);
            end;
    writeln(f);
    end;
close(f);
end.