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




close(f2);
end.