type sir=array[1..18] of byte;
var k,i,j,n:longint;
    a:sir;
    f,g:text;

procedure tipar(i:longint;a:sir);
begin
  for i:=1 to k do
    write(g,a[i],' ');
 writeln(g);
end;

procedure combinari(a:sir;st,dr:integer;i:integer);
var j,c:longint;
begin
c:=0;
if i<k then
  begin
    for j:=st to dr-k+i do
      begin
        inc(c);
        a[i]:=j;
        combinari(a,st+c,dr,i+1);
      end;
  end
else
  begin
    for j:=st to dr-k+i do
      begin
        a[i]:=j;
        tipar(1,a);
      end;
  end
end;

begin
assign(f,'combinari.in');reset(f);
assign(g,'combinari.out');rewrite(g);
read(f,n,k);
combinari(a,1,n,1);
close(f);
close(g);
end.