var v:array[1..18] of 1..18;
n,k,i,j:integer;
f,g:text;
ok:boolean;
begin
assign(f,'combinari.in');
assign(g,'combinari.out');
reset(f);rewrite(g);
read(f,n,k);
for i:=1 to k do
    begin
    v[i]:=i;
    write(g,v[i],' ');
    end;
writeln(g);
repeat
      i:=k;
      while k-i>n-v[i]-1 do
            i:=i-1;
      v[i]:=v[i]+1;
      for j:=i+1 to k do
          v[j]:=v[i]+j-i;
      for i:=1 to k do
          write(g,v[i],' ');
      writeln(g);
      ok:=true;
      if v[k]=n then
         begin
         for i:=k downto 2 do
             if v[i]<>v[i-1]+1 then
                begin
                ok:=false;
                break;
                end;
         end
      else
          ok:=false;
until ok=true;
close(f);close(g);
end.