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




procedure afis;
forward;

procedure back(last,nr:longint);
var i:longint;
begin
        if nr=k then
                afis else
        for i:=last+1 to n-k+1+nr do
                begin
                        sol[nr+1]:=i;
                        back(i,nr+1);
                end;
end;



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


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