program comb;
var f,g:text;
    sol:array[0..100] of integer;
    n,m:integer;

procedure scriere;
var i:integer;
begin
for i:=1 to m do write(g,sol[i],' ');
writeln(g);
end;

procedure back(k:integer);
var i:integer;
begin
if k>m then scriere
else
  for i:=sol[k-1]+1 to n do begin
    sol[k]:=i;
    back(k+1);
    end;
end;

begin
assign(f,'combinari.in');
assign(g,'combinari.out');
reset(f);
rewrite(g);
readln(f,n,m);
sol[0]:=0;
back(1);
close(f);
close(g);
end.