program tablete;
var
fi,fo:text;
i,j,varc,k,n,lk,mk:longint;
begin
mk:=1;
varc:=1;
assign(fi,'tablete.in');
reset(fi);
read(fi,n,k);
close(fi);
assign(fo,'tablete.out');
rewrite(fo);
for i:=1 to n do
        begin
        for j:=1 to n do
                begin
                if j<k
                then
                        begin
                        if varc=lk
                        then
                                varc:=varc+1;
                        write(fo,varc,' ');
                        varc:=varc+1
                        end;
                if j=k
                then
                        begin
                        write(fo,(k*i)+ (k*i) mod 2,' ');
                        lk:=k*i+(k*i) mod 2
                        end;
                if j>k
                then
                        begin
                        if (i=1) and (j=k+1) and (n*k mod 2 = 1)
                        then
                                write(fo,n*k,' ')
                        else
                                write(fo,k*n+mk,' ');
                        mk:=mk+1
                        end
                end;
        writeln(fo,'');
        end;
close(fo);
halt
end.