{DINH QUANG DAT TIN 07-10}
{COMBINARI}
{$inline on}
{$mode objfpc}
CONST
 TFI='combinari.in';
 TFO='combinari.out';
 MAX=20;
TYPE
 arr1int=array[0..MAX] of longint;
VAR
 fi,fo:text;
 k,n:longint;
 res:arr1int;

PROCEDURE       input;
begin
 read(fi,n,k);
end;

PROCEDURE       init;
begin
end;

PROCEDURE       go(i:longint);inline;
var
 j:longint;
begin
 if (k-i+1)>(n-res[i-1]) then exit;
 if i>k then
  begin
   for j:= 1 to k do write(fo,res[j],' ');
   writeln(fo);
   exit;
  end;
 for j:= res[i-1]+1 to n do
  begin
   res[i]:=j;
   go(i+1);
  end;
end;

PROCEDURE       process;inline;
begin
 go(1);
end;

BEGIN
 assign(fi,tfi);reset(fi);
 assign(fo,tfo);rewrite(fo);
  input;
  init;
  process;
 close(fi);
 close(fo);
END.