var f:text;
    n,k:longint;
    x:array[0..20] of integer;

procedure kiir(m:longint);
var j:longint;
begin
 for j:=1 to m do write(f,x[j],' ');
 writeln(f);
end;

procedure back(l:longint);
var i,kezd:longint;
begin
 kezd:=x[l-1]+1;
 for i:=kezd to n do begin
   x[l]:=i;
   if l=k then kiir(l)
        else back(l+1);
 end;
end;

begin
 assign(f,'combinari.in');
 reset(f);
 readln(f,n,k);
 close(f);


 assign(f,'combinari.out');
 rewrite(f);
 x[0]:=0;
 back(1);
 close(f);
end.