var f,g:text;
    st:array[0..10] of byte;
    n,t:integer;
procedure scr;
var i:integer;
begin
     for i:=1 to t do write(g,st[i],' ');
     writeln(g);
end;
{function verif(k:integer):boolean;
var i:integer;
begin
     verif:=true;
     for i:=1 to k-1 do
          if st[i]>=st[k] then verif:=false;
end;}
procedure gen(k:integer);
var i:integer;
begin
     if k>t then scr
            else
            begin
               for i:=st[k-1]+1 to n do
               begin
                    st[k]:=i;
                    gen(k+1);
               end;
            end;
end;
begin
     assign(f,'combinari.in'); reset(f);
     assign(g,'combinari.out'); rewrite(g);
     readln(f,n,t);  st[0]:=0;
     gen(1);
     close(g);
end.