program damele;
type stiva=array[1..100]of integer;
var st:stiva; n,k,p:integer;
    aas,ev:boolean;
    f,g:text;
procedure init(k:integer;var st:stiva);
    begin
    st[k]:=0;
    end;
procedure succesor(var aas:boolean;var st:stiva;k:integer);
    begin
    if st[k]<n-p+k then begin
                    st[k]:=st[k]+1; aas:=true;
                    end
    else aas:=false;
    end;
procedure valid(var ev:boolean;var st:stiva;k:integer);
    var i:integer;
    begin
    ev:=true;
    for i:=1 to k-1 do
       if (st[k]=st[i]) then ev:=false ;
    if k>1 then if st[k]<st[k-1] then ev:=false;
    end;
function solutie(k:integer):boolean;
    begin
    solutie:=(k=p);
    end;
procedure tipar;
  var i:integer;
  begin
  for i:=1 to p do write(g,st[i],' ');
  writeln(g);
  end;
begin
assign(f,'combinari.in');reset(f);
assign(g,'combinari.out');rewrite(g);
readln(f,n,p);
k:=1;
init(k,st);
while k>0 do
   begin
   repeat succesor(aas,st,k);
   if aas then valid(ev,st,k);
   until (not aas)or(aas and ev);
   if aas then
             if solutie(k) then tipar
             else begin
                  k:=k+1;
                  init(k,st);
                  end
   else k:=k-1;
   end;
close(f);close(g);
end.