var f,g:text;
    sol:array[0..101] of longint;
    n,k:longint;
procedure afisare_sol;
 var i:longint;
 begin
  for i:=1 to k-1 do write(g,sol[i],' ');
  writeln(g,sol[k]);
 end;
procedure back(x:longint);
 var i:longint;
 begin
  if x>k then afisare_sol
   else
    for i:=sol[x-1]+1 to n-k+x do begin
     sol[x]:=i;
     back(x+1);
    end;
 end;
begin
assign(f,'combinari.in');reset(f);
assign(g,'combinari.out');rewrite(g);
read(f,n,k);
sol[0]:=0;
back(1);
close(f);
close(g);
end.