var k,nr,i,j,n,nn:longint;
    f,g:text;
begin
assign(f,'tablete.in');
assign(g,'tablete.out');
reset(f);
read(f,n,k);
close(f);
k:=k mod 2;
nn:=(n div 2)*2;
nr:=nn*nn;
rewrite(g);
for i:=1 to nn do begin
  if k=0 then
    for j:=1 to nn do
      write(g,(i-1)*nn+j,' ')
    else begin
    if i mod 2=1 then begin
      for j:=2 to nn do
        write(g,(i-1)*nn+j,' ');
      write(g,(i+1)*nn,' ');
      end
      else
      begin
      write(g,(i-2)*nn+1,' ');
      for j:=1 to nn-1 do
        write(g,(i-1)*nn+j,' ');
      end
    end;

  if n mod 2=1 then begin
    inc(nr);
    write(g,nr);
    end;
  writeln(g);
  end;
if n mod 2=1 then begin
  for i:=1 to n do
    write(g,nr+i,' ');
  writeln(g);
  end;
close(g);
end.