Program arena_comb_back;
var fi,fo : text;
    n,k:longint;
    a:array[0..100] of integer;

Procedure tipar;
var i:longint;
begin
     for i:=1 to k do write(fo,a[i],' ');
                  writeln(fo);
end;

procedure back(l:longint);
var i:longint;
begin
      if l=k then tipar
             else
                   for i:=a[l]+1 to n do begin
                                         a[l+1]:=i;
                                         back(l+1);
                                         end;

end;


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