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.