program comb;
var a: array[0..18] of longint;
n,k: longint;
f: text;
procedure afisare;
var i: longint;
begin
     for i:=1 to k do
         write(f,a[i],' ');
     writeln(f);
end;
procedure bkt(p: longint);
var i: longint;
begin
     if p=k+1 then afisare
     else
         for i:=a[p-1]+1 to n-k+p do
         begin
              a[p]:=i;
              bkt(p+1);
         end;
end;
begin
     assign(f,'combinari.in');
     reset(f); read(f,n,k);
     close(f);
     assign(f,'combinari.out');
     rewrite(f);
     bkt(1);
     close(f);
end.