const infile='combinari.in';
  outfile='combinari.out';
  maxn=20;
var n,k:integer;
  sol:array[0..maxn]of integer;

 procedure scrie;
 var j:integer;
 begin
   for j:=1 to k do write(sol[j],' ');
   writeln;
 end;

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

begin
 assign(input,infile); reset(input); readln(n,k); close(input);
 assign(output,outfile); rewrite(output); generare(1); close(output);
end.