program part2sets;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  p: array [0 .. 15] of integer;
  n, k: integer;

procedure generate(m, l: integer);
var
  i, j: integer;
begin
  if (m > n) then
  begin
    if (l = k) then
    begin
      for j := 1 to l do
      begin
        for i := 1 to m do
          if (p[i] = j) then write(output, i, ' ');
        writeln(output);
      end;
      writeln(output);
    end;
    exit;
  end;

  for i := 1 to l do
  begin
    p[m] := i;
    generate(m + 1, l);
  end;

  if (l < k) then
  begin
    p[m] := l + 1;
    generate(m + 1, l + 1);
  end;
end;

begin
  assign(input, 'part2sets.in');
  reset(input);
  assign(output, 'part2sets.out');
  rewrite(output);

  readln(n, k);
  generate(1, 1);

  close(input);
  close(output);
end.