var v,x:array[1..20]of integer;
suma,n,c,j,k:integer;
f,g:text;

{function verif:boolean;
var s,i:integer;
begin
s:=0;
for i:=1 to 5 do s:=s+v[x[i]];
if s=suma then verif:=true
          else verif:=false;
end;}

procedure b(niv,val:integer);
var i:integer;
begin
for i:=val+1 to n-niv+1 do begin
                         x[niv]:=i;
                         if niv=1 then begin
                                  {if verif then c:=c+1}
                                           for j:=k downto 1 do write(g,x[j],' ');
                                           writeln(g);
                                  end
                                  else b(niv-1,i);
end;
end;
begin
assign(f,'permutari.in');reset(f);
assign(g,'permutari.out');rewrite(g);
{readln(f,n,suma);c:=0;
for j:=1 to n do read(f,v[j]);   }
readln(f,n,k);
b(k,0);
{writeln(g,c);}
close(g);
end.