var r, c, c2, r2:longint;
    n, k:integer;
    i, j:longint;
    f:text;

begin
assign (f, 'tablete.in'); reset (f);
read (f, n, k);
close (f);

assign (f, 'tablete.out'); rewrite (f);
c:=1; r:=0;
c2:= n*k+1;
if ((n mod 2 = 1) and (k mod 2 = 1)) then r2:=n*k-1;

for i := 1 to n do
  begin
  for j := 1 to k-1 do
    begin
    if r <> 0 then
      begin
      write (f, r, ' ');
      r:= 0;
      end
              else
      begin
      write (f, c, ' ');
      c:=c+1;
      end;
    end;
  if c mod 2 = 0 then
    begin
    write (f, c, ' ');
    c:=c+1;
    end
                 else
    begin
    write (f, c+1, ' ');
    r:= c;
    c:=c+2;
    end;

  for j := k+1 to n do
    begin
    if r2 <> 0 then
      begin
      write (f, r2, ' ');
      c2:=c2+1;
      r:=0;
      end
              else
      begin
      write (f, c2, ' ');
      c2:=c2+1;
      end;
    end;
  writeln (f);
  end;
close (f);
end.