program tablete;
var f, g:text;
    i, j, n, val, k, valret:longint;
    ma:array[1..1000,1..1000] of longint;

procedure plasare;
  begin
    if n mod 2+k mod 2<>2 then
      for i:=1 to n do
        begin
          ma[i,j]:=val;
          ma[i,j+1]:=val+1;
          val:=val+2;
        end
     else
       begin
         ma[1,j]:=val;
         val:=val+1;
         for i:=2 to n do
           begin
             ma[i,j]:=val;
             ma[i-1,j+1]:=val+1;
             val:=val+2;
           end;
         ma[n,j+1]:=val+1;
         valret:=val;
         val:=val+1;
       end;
    j:=j+2;
  end;

  begin
    assign(f,'tablete.in'); reset(f);
    assign(g,'tablete.out'); rewrite(g);
    readln(f,n,k);
    j:=1;
    val:=1;
    while j<=n do
      if j<>k-1 then
        begin
          i:=1;
          while i<=n do
            begin
              ma[i,j]:=val;
              val:=val+1;
              i:=i+1;
            end;
          j:=j+1;
        end
       else
         plasare;
    if n mod 2+k mod 2=2 then
      ma[1,k+1]:=valret;
    for i:=1 to n do
      begin
        for j:=1 to n do
          write(g,ma[i,j],' ');
        writeln(g);
      end;
    close(f);
    close(g);
  end.