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