program tablete;
var nr1,nr2,i,n,j,k,l: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;
if (k mod 2=0) and (n mod 2=0) then
  begin {1}
  for i:=1 to n do
  begin {2}
  for j:=1 to n do
    begin
    write(f2,nr1,' ');
    nr1:=nr1+1;
    end;
  writeln(f2);
  end;
end;
nr1:=1;
nr2:=n*k+1;
if (k mod 2=0) and (n mod 2=1) then
  begin
  for i:=1 to n do
  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;
end;
nr1:=1;
nr2:=n*k+1;
if (k mod 2=1) and (n mod 2=0) then
  begin
  for i:=1 to n do
  begin
  for j:=1 to k-1 do
    begin
    if i mod 2=1 then
      begin
      write(f2,nr1,' ');
      nr1:=nr1+1;
      end
    else
      begin
      write(f2,nr1,' ');
      if k mod 2=1 then
        nr1:=nr1+2
      else
        nr1:=nr1+1;
      end;
    end;
    for j:=k to k do
      begin
      if i mod 2=0 then
        begin
        p:=nr1;
        dec(p);
        write(f2,p,' ');
      end
      else
        begin
        p:=nr1;
        inc(p);
        write(f2,p,' ');
        end;
      end;
    for j:=k+1 to n do
    begin
    write(f2,nr2,' ');
    nr2:=nr2+1;
    end;
  writeln(f2);
  end;
  end;














close(f2);
end.