var n,m,l,i,j,k:longint;
    ok:boolean;
    f,g:text;
begin
assign(f,'tablete.in');
reset(f);
assign(g,'tablete.out');
rewrite(g);
readln(f,n,k);
l:=n*k;
m:=1;
ok:=true;
for i:=1 to n do
   begin
     if ok then
       begin
         for j:=1 to k-1 do begin write(g,m,' '); inc(m);end;
         if m mod 2=0 then write(g,m,' ')
                      else
                        begin
                          ok:=false;
                          write(g,m+1,' ');
                        end;
         for j:=k+1 to n do
            begin
              write(g,l,' '); inc(l);
            end;
         writeln(g);
       end
           else
       begin
         write(g,m,' ');
         inc(m,2);
         for j:=2 to k-1 do begin write(g,m,' '); inc(m);end;
         if m mod 2=0 then begin write(g,m,' '); ok:=true; end
                      else write(g,m+1,' ');
         for j:=k+1 to n do
            begin
              write(g,l,' '); inc(l);
            end;
         writeln(g);
       end;
   end;
close(f);
close(g);

end.