program combinari_backtracking;
type vector=array[0..20] of longint;
var st:vector;
    n,k:longint;
    f,g:text;
 
procedure back(l:longint);
var i:longint;
begin
if (l=k)then begin
             for i:=1 to k do write(g,st[i],' ');
             writeln(g);
             end
        else begin
             for i:=st[l]+1 to n do begin
                                    st[l+1]:=i;
                                    back(l+1);
                                    end;
             end;
end;
 
begin
assign(f,'combinari.in');reset(f);
assign(g,'combinari.out');rewrite(g);
readln(f,n,k);
back(0);
close(f); close(g);
end.