var v:array[1..20] of byte;
m,n,i,j,s: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
s:=0;
i:=m;
while (s=0) and (i>0) do begin
s:=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;
          s:=1;
           if s=1 then
       for j:=1 to m do
            write(g,v[j],' ');
      writeln(g);
                   end
                   else i:=i-1;
             end;
until s=0;
close(f);
close(g);
end.