Program combinari_matematic;
var fi,fo :text;
    i,n,j,m:integer;
    c:array[1..100] of integer;
    indice:boolean;

Procedure Tipar;
begin
    if indice then begin
                   for i:=1 to m do write(fo,c[i],' ');
                   writeln(fo);
                   end;
end;

Procedure Generez;
label 1;
begin
     for i:=m downto 1 do
                      if c[i]<n-m+i then  begin
                                       c[i]:=c[i]+1;
                                       for j:=i+1 to m do c[j]:=c[j-1]+1;
                                       goto 1;
                                       end;
    indice:=false;
1:end;

begin
    assign(fi,'combinari.in'); reset(fi); read(fi,n,m);
    close(fi); assign(fo,'combinari.out'); rewrite(fo);
    for i:=1 to m do c[i]:=i;  indice:=true; Tipar;
    repeat
        Generez;
        Tipar;
    until not indice;
    close(fo);
end.