program combinari;
type vec=array[0..19] of integer;
var a:vec;
    n,p:integer;
    f,g:text;
function valid(k:integer):boolean;
var t:boolean;
begin
t:=true;
valid:=t;
end;
function final(k:integer):boolean;
begin
if p=k then final:=true
       else final:=false;
end;
procedure tipar(k:integer);
var i:integer;
begin
for i:=1 to k do
write(g,a[i],' ');
writeln(g);end;
procedure back(k:integer);
var i:integer;
begin
for i:=a[k-1]+1 to n do begin
a[k]:=i;
if valid(k) then if final(k) then tipar(k)
                    else back(k+1);
                    end;
end;
begin
assign(f,'combinari.in');assign(g,'combinari.out');reset(f);rewrite(g);
readln(f,n,p);a[0]:=0;
back(1);
close(f);close(g);
end.