var n,k:longint;
    comb:array[0..100] of byte;
    f,f2:text;

procedure Initializeaza;
begin
comb[1] := 0;
end;

procedure Citeste;
begin
assign(f,'combinari.in');
assign(f2,'combinari.out');
reset(f);
readln(f,n,k);
close(f);
end;

procedure Back(niv:byte);
var i:byte;
begin

 if (n-comb[niv]) < (k-niv) then
 else
  begin

  if niv < k then
   begin

    for i:=comb[niv]+1 to n do
     begin
        comb[niv+1] := i;
        Back(niv+1);
     end;

   end
  else
   begin
    for i:=1 to k do
     begin
      write(f2,comb[i],' ');
     end;
    writeln(f2);
   end;

  end;
end;

begin
Initializeaza;
Citeste;
rewrite(f2);
Back(0);
close(f2);
end.