var v : array[1..20] of byte;  
m,n,i,j,sw:byte;  
f,g:text;  
begin  
assign(f,'combinari.in'); reset(f);  
assign(g,'combinari.out'); rewrite(g);  
   
readln(f,n,m);  
   
for i := 1 to n do v[i]:=i;  
   
for i := 1 to m do write(g,v[i],' ');  
writeln(g);  
  
repeat  
   sw:=0;  
   i:=m;  
   while (sw=0) and (i>0) do begin  
   sw:=0;  
       if v[i] < n-m+i then begin  
  
             v[i]:=v[i]+1;  
  
          for j := i+1 to m do  
              v[j]:=v[j-1]+1;  
          sw:=1;  
  
           if sw = 1 then  
       for j := 1 to m do  
            write(g,v[j],' ');  
      writeln(g);  
  
  
                             end  
                             else  
                             i:=i-1;  
  
             end;  
  
until sw = 0;  
  
close(f);  
close(g);  
   
end.