program combin;
var v:array[1..1000] of integer;
    i,p,n:integer;
procedure comb(k:integer);
var x:integer;
begin
     if k=p+1 then begin
        for i:=1 to k do
            write(output,v[k],' ');
            writeln(output);
            end
     else
          for x:=v[k-1]+1 to n-p+k do begin
              v[k]:=x;
              comb(k+1);
              end;
end;
begin
assign(input,'comb.in');
reset(input);
read(input,n,p);
close(input);
assign(output,'comb.out');
rewrite(output);
comb(1);
close(output);
end.