var f,g:text;
n,i,k,j,p:integer;
begin
assign(f,'tablete.in');
reset(f);
readln(f,n,k);
assign(g,'tablete.out');
rewrite(g);
p:=1;
if k mod 2=0 then
    for i:=1 to n do
       begin
       for j:=1 to n do
               begin
               write(g,p,' ');
               p:=p+1;
               end;
       writeln(g);
     end;
close(f);
close(g);
end.