program cmb;
var s:array [1..100] of longint;
    p,n:longint;
    f,g:text;
procedure afis();
var j:longint;
begin
for j:=1 to p do write(g,s[j],' ');
writeln(g);
end;
procedure comb(t:longint);
var i:longint;
begin
if t<=p then
for i:=s[t-1]+1 to n do begin s[t]:=i; comb(t+1); end
else afis();
end;
begin
assign (f,'combinari.in'); reset (f); assign (g,'combinari.out'); rewrite(g);
read(n,p);
comb(1);
close (f); close (g);
end.