Program tablete;
VAR
 f,g:text;
 n,i,j,k:word;
 p:longint;
 m: array [1..1000,1..1000] of longint;
begin
 assign(f,'tablete.in');reset(f);
 assign(g,'tablete.out');rewrite(g);
 readln(f,n,k);
 for i:=1 to n do
   for j:=1 to n do
    begin
     inc(p);
     m[i,j]:=p;
    end;
 if(k mod 2 =0) then
  for i:=1 to n do
   begin
    for j:=1 to n do
     write(g,m[i,j],' ');
    writeln(g);
   end;
 close(f);close(g);
end.