program mihai;
var x:array[0..18] of integer;
n,k:int64;

procedure comb(nr:longint);
var i:longint;
begin
if(nr=k) then
begin
for i:=1 to k do
write(x[i],' ');
writeln;
end
else
begin
for i:=x[nr]+1 to n do
begin
x[nr+1]:=i;
comb(nr+1);
end;
end;
end;



begin
assign(input,'combinari.in');
reset(input);
assign(output,'combinari.out');
rewrite(output);
read(n,k);
comb(0);
close(input);
close(output);
end.