program combinari;
type
tabel=array [0..21] of longint;
var
v:tabel;
n,k:longint;
f1,f2:text;
procedure back(x:longint);
var
i:longint;
begin
if (x=k) then begin
for i:=1 to k do
write(f2,v[i],' ');
writeln(f2); end
else
begin
for i:=v[x]+1 to n do begin
v[x+1]:=i;
back(x+1);
end;
end; end;
begin
assign(f1,'combinari.in');
assign(f2,'combinari.out');
reset(f1);
rewrite(f2);
readln(f1,n,k);
back(0);
close(f1);
close(f2);
end.