program p1;
var a:array[1..20] of byte;
o,n,i,j,s,p,aux:byte;
f,g:text;
begin
assign(f,'combinari.in');reset(f);
assign(g,'combinari.out');rewrite(g);

readln(f,p,o);
for i:=1 to p do a[i]:=i;
for i:=1 to o do write(g,a[i],' ');
writeln(g);
repeat
s:=0;
aux:=s;
i:=o;
while (s=0) and (i>0) do begin
s:=0;
if a[i]<p -o+i then begin
             a[i]:=a[i]+1;
          for j:=i+1 to o do
              a[j]:=a[j-1]+1;
          s:=1;
           if s=1 then
       for j:=1 to o do
            write(g,a[j],' ');
      writeln(g);aux:=a[j];
                   end
                   else i:=i-1;
             end;
until s=0;
close(f);
close(g);
end.