Uses Crt;
var N,c:integer; F:text;
a:array[0..18] of integer;
procedure Print;
var i:integer;
begin
 for i:=1 to c do write(F, a[i],' ');
 writeln(F);
 end;
procedure Generare(k:integer);
var i:integer;
begin
 if k=c+1 then Print
  else
    for i:=a[k-1]+1 to N-c+k do
     begin
      a[k]:=i;
      Generare(k+1);
     end;
end;
Begin ClrScr;
assign(F, 'combinari.in');
reset(F);
readln(F, N,c);
close(F);
assign(F, 'combinari.out');
rewrite(F);
Generare(1);
close(F);
end.