program tablete;
var nr1,nr2,i,n,j,k:longint;
    f1,f2:text;
    p:shortint;
begin
assign(f1,'tablete.in');
reset(f1);
read(f1,n,k);
close(f1);
assign(f2,'tablete.out');
rewrite(f2);
nr1:=1;
for i:=1 to n do
begin
if (k mod 2=0) and (n mod 2=0) then
  begin
  for j:=1 to n do
    begin
    write(f2,nr1,' ');
    nr1:=nr1+1;
    end;
  writeln(f2);
  end;
nr1:=1;
nr2:=n*k+1;
if (k mod 2=0) and (n mod 2=1) then
  begin
  for j:=1 to k do
    begin
    write(f2,nr1,' ');
    nr1:=nr1+1;
    end;
  for j:=k+1 to n do
    begin
    write(f2,nr2,' ');
    nr2:=nr2+1;
    end;
  writeln(f2);
  end;
nr1:=1;
nr2:=n*k+1;
if (k mod 2=1) and (n mod 2=0) then
  begin
  for j:=1 to k-1 do
    begin
    write(f2,nr1,' ');
    nr1:=nr1+1;
    end;
  if nr1 mod 2=1 then
    begin
    p:=nr1;
    nr1:=nr1+1;
    end;
  for j:=k to k do
    write(f2,nr2,' ');
  if i mod 2=0 then
    write(f2,p);
  for j:=k+1 to n do
    begin
    write(f2,nr2,' ');
    nr2:=nr2+1;
    end;
  writeln(f2);
  end;













   end;


close(f2);
end.