var f,g:text;
	a:array[1..100,1..100]of longint;
	i,j,k,n:longint;
procedure k_par;
	var i,j,r:longint;
	begin
	r:=1;
	for i:=1 to n do
		for j:=1 to n do
				begin
				a[i,j]:=r;
				r:=r+1;
				end;
	end;
procedure k_impar;
          begin
          i:=1;
          end;
procedure n_par;
          begin
          i:=1;
          end;
begin
assign(f,'tablete.in');reset(f);
assign(g,'tablete.out');rewrite(g);
readln(f,n,k);
if k mod 2=0 then k_par
else if n mod 2=0 then n_par
else if n mod 2=1 then k_impar;
for i:=1 to n do
	begin
	for j:=1 to n do
	write(g,a[i,j],' ');	
	writeln(g);
	end;
close(g);
end.