var sol:array[0..18] of longint;
    f,g:text;
    k,n:longint;

procedure back(lv:longint);
 var i:longint;
 begin
  if lv=k+1 then begin
   for i:=1 to k do
    write(g,sol[i],' ');
   writeln(g);
  end
  else
   for i:=sol[lv-1]+1 to n-k+lv do begin
    sol[lv]:=i;
    back(lv+1);
   end;
 end;

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