program Combinari;
var
   fl : text;
   n, k, i : integer;
   s  : array[0..30] of integer;

procedure print;
begin
   for i := 1 to k do
      write(fl,s[i],' ');
   writeln(fl);
end;
procedure back(l:longint);
var
  i : longint;
begin
  if l = k then
     print
  else
    for i := s[l]+1 to n do
       begin
          s[l+1] := i;
          back(l+1);
       end;
end;
begin
   assign(fl,'combinari.in');
   reset(fl);
   readln(fl,n,k);
   close(fl);

   assign(fl,'combinari.out');
   rewrite(fl);
   back(0);
   close(fl);
end.