var
  n, k, l, c : integer;
  i, aux : longint;
  fi, fo : text;
begin
  assign(fi, 'tablete.in'); reset(fi);
  read(fi, n, k);
  close(fi);
  assign(fo, 'tablete.out'); rewrite(fo);
  for l := 1 to n do
    begin
      for c := 1 to n do
        begin
          inc(i);
          if c = 1 then
            if aux <> 0 then // Avem un element peste care am sarit.
              begin
                write(fo, aux, ' ');
                aux := 0;
              end
            else
              write(fo, i, ' ')
          else
            if c = k then
              if odd(i) then    // Trebuie sa pregatim un numar par.
                begin
                  aux := i;     // Va fi pus la inceputul randului urmator.
                  inc(i);       // Stabilim numarul par care va fi afisat.
                  write(fo, i, ' ');
                end
              else
                write(fo, i, ' ')    // Nu avem restrictii.
            else // Nu suntem la coloana k.
              write(fo, i, ' ');
        end;
      writeln(fo);
    end;
  close(fo);
end.