var r, c:longint;
    n, k:integer;
    i, j:longint;
    v:array[1..1000, 1..1000] of longint;
    buf:array[1..32768] of byte;
    f:text;

begin
assign (f, 'tablete.in'); reset (f);
read (f, n, k);
close (f);

c:=1; r:=0;
for i := 1 to n do
  begin
  for j := 1 to k-1 do
    begin
    if r <> 0 then
      begin
      v[i, j] := r;
      r:= 0;
      end
              else
      begin
      v[i, j] := c;
      c:=c+1;
      end;
    end;
  if c mod 2 = 0 then
    begin
    v[i, k] := c;
    c:=c+1;
    end
                 else
    begin
    v[i, k] := c+1;
    r:= c;
    c:=c+2;
    end;
  end;

for i := 1 to n do
  begin
  for j := k+1 to n do
    begin
    if r <> 0 then
      begin
      v[i, j] := r;
      r:=0;
      end
              else
      begin
      v[i, j] := c;
      c:=c+1;
      end;
    end;
  end;

assign (f, 'tablete.out'); settextbuf(f, buf, 32768); rewrite (f);
for i := 1 to n do
  begin
  for j := 1 to n do write (f, v[i, j], ' ');
  writeln (f);
  end;
close (f);
end.