Program kombinari;
var n,p : longint;
    a : array [1..20] of longint;
procedure scrie;
var i : longint;
  begin
      for i:=1 to p do write(A[i],' ');
      writeln;
  end;
procedure back(k : longint);
var i,j : longint;
  begin
       if k-1=p then scrie
                else
       for i:=1 to n do
                       if A[k-1]<i then begin
                                             A[k]:=i;
                                             back(k+1);
                                          end;


  end;
begin
   assign(input,'combinari.in'); reset(input);
   assign(output,'combinari.out'); rewrite(output);
    readln(n,p);
    back(1);
    close(output);
end.