var v : array[1..20] of byte;
m,n,i,j,sw:byte;
f,g:text;
begin
assign(f,'combinari.in'); reset(f);
assign(g,'combinari.out'); rewrite(g);

readln(f,n,m);

for i := 1 to n do v[i]:=i;

for i := 1 to m do write(g,v[i],' ');
writeln(g);

repeat
   sw:=0;
   i:=m;
   while (sw=0) and (i>0) do begin
   sw:=0;
       if v[i] < n-m+i then begin

             v[i]:=v[i]+1;

          for j := i+1 to m do
              v[j]:=v[j-1]+1;
          sw:=1;

           if sw = 1 then
       for j := 1 to m do
            write(g,v[j],' ');
       writeln(g);


                             end
                             else
                             i:=i-1;

             end;


until sw = 0;


close(f);
close(g);

end.