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 k do
                begin
                if varc=lk
                then
                varc:=varc+1;
                write(fo,varc,' ');
                varc:=varc+1
                end;
         write(fo,(k*i)+ (k*i) mod 2,' ');
         lk:=k*i+(k*i) mod 2;
         for j:=k+1 to n do
                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;
        writeln(fo,'');
        end;
close(fo);
halt
end.