program comb;
var f,g:text;
    x:array[1..10000]of longint;
    n,k:longint;

procedure afisare;
var i:longint;
begin
  for i:=1 to k do
   write(g,x[i],' ');
  writeln(g);
end;

procedure bkt(p:longint);
var i:longint;
begin
  if p=k+1 then
   afisare else
   for i:=x[p-1]+1 to n-k+p do
    begin
      x[p]:=i;
      bkt(p+1);
    end;
end;

begin
  assign(f,'combinari.in');
  reset(f);
  readln(f,n,k);
  close(f);
  assign(g,'combinari.out');
  rewrite(g);
  bkt(1);
  close(g);
end.