program p1;
var n,k:integer;
f,g:text;
a:array[0..18] of byte;
 procedure back(u:integer);
 var i:integer;
 begin
 if u=k then begin
        for i:=1 to k do write(g,a[i],' ');
        writeln(G);
                end
                else
                begin
                for i:=a[u]+1 to n do
                        begin
                        a[u+1]:=i;
                        back(u+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.