var s:array[0..20] of longint;  
     n,k:longint;  
   
 procedure back(l:longint);  
 var i:longint;  
 begin  
 if (l=k) then  
         begin  
         for i:=1 to k do  
                 write(s[i],' ');  
         writeln;  
         end  
 else  
         begin  
         for i:=s[l]+1 to n do  
                 begin  
                 s[l+1]:=i;  
                 back(l+1);  
                 end;  
         end;  
 end;  
   
 begin  
 assign(input,'combinari.in');reset(input);  
 assign(output,'combinari.out');rewrite(output);  
 readln(n,k);  
 back(0);  
 close(input);close(output);  
 end.