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