var n,k,i,j,iaux:longint;
    v:array [1..1010,1..1010] of longint;
begin
 assign(input,'tablete.in'); reset(input);
 assign(output,'tablete.out'); rewrite(output);
  readln(n,k);
  if n mod 2=0 then
   if k mod 2=0 then begin
    for i:=1 to n do
     for j:=1 to n do v[i,j]:=(i-1)*n+j;
   end
                else
    for i:=1 to n div 2 do begin
     iaux:=i-1;
     v[i*2-1,1]:=iaux*n*2+2; v[i*2,1]:=iaux*n*2+1; v[i*2-1,n]:=iaux*n*2+2*n; v[i*2,n]:=iaux*n*2+2*n-1;
     for j:=2 to n-1 do v[i*2-1,j]:=iaux*n*2+j+1;
     for j:=2 to n-1 do v[i*2,j]:=iaux*n*2+j+n-1;
    end;
 for i:=1 to n do begin
  for j:=1 to n do write(v[i,j],' ');
  writeln;
 end;
 close(input); close(output);
end.