var a:array[0..100]of byte;
    n,k:byte; f:text;

procedure init;
var i:byte;
begin
 for i:=0 to n do a[i]:=i;
end;

procedure afis;
var i:byte;
begin
 for i:=1 to k do write(f,a[i]); writeln;
end;


procedure comb(p:byte);
var i:byte;
begin
 if p>k then afis else
  begin
   for i:=a[p-1]+1 to n-k+p do
    begin
     a[p]:=i;
     comb(p+1);
    end;
  end;
end;

begin
 assign(f,'combinari.in');
 reset(f);
 readln(f,n,k);
 close(f);
 assign(f,'combinari.out');
 rewrite(f);
 init;
 comb(1);
 close(f);
end.