var i,j,k,l,m,n:integer; f1,f2:text; a:array[1..100] of integer;
procedure comb(l:longint);
var i,j:integer; b:boolean;
begin
if l=k then begin
for i:=1 to l do
write(f2,a[i],' ');
writeln(f2);
end
else
for i:=a[l]+1 to n do begin
a[l+1]:=i; comb(l+1);
end;

end;

begin
assign(f1,'combinari.in');
reset(f1);
readln(f1,n,k);
close(f1);
assign(f2,'combinari.out');
rewrite(f2);
comb(0);

close(f2);
end.