Program Combinari;
    var n, k : longint;
        a : array [0..18] of longint;
        fi, fo : text;

 Procedure back(l:longint);
       var i : longint;
       begin
       if (l=k) then begin
                     for i:=1 to k do write(fo,a[i],' ');
                     writeln(fo);
                     end
                else begin
                     for i:=a[l]+1 to n do begin
                                             a[l+1]:=i;
                                             back(l+1);
                                             end;
                     end;
       end;


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