program cmb;
var s:array [1..100] of longint;
    p,n:longint;
procedure afis();
var j:longint;
begin
for j:=1 to p do write(s[j],' ');
writeln();
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
read(n,p);
comb(1);
end.