var v:array[0..18] of longint;
n,k:byte;
f,g:text;
procedure citire;
begin
assign(f,'combinari.in');reset(f);
readln(f,n,k);
close(f);
end;
procedure back(a:longint);
var i:longint;
begin
if a=k+1 then begin
                for i:=1 to k do
                write(g,v[i],' ');
writeln(g);
end
else
begin
for i:=v[a-1]+1 to n-k+a do
        begin
        v[a]:=i;
        back(a+1);
        end;
end;
end;
begin
assign(g,'combinari.out');rewrite(g);
citire;
back(1);
close(g);
end.