var n,j,p:word;
    f,g:text;
    mark,sol:array[1..18] of byte;

procedure tipar();
var i:byte;
begin
        for i:=1 to p do
                write(g,sol[i],' ');
        writeln(g);
end;

procedure back(k:byte);
var i:byte;
begin
        if (k=p+1) then
                tipar()
                        else

                                for i:=1 to n do
                                        if (mark[i]=0)and(i>sol[k-1]) then begin
                                                sol[k]:=i;
                                                mark[i]:=1;
                                                back(k+1);
                                                mark[i]:=0;
                                                end;


end;

begin
        assign(f,'combinari.in');
        reset(f);
        read(f,n);
        readln(f,p);
        close(f);

        for j:=1 to n do
                mark[j]:=0;

        assign(g,'combinari.out');
        rewrite(g);
        back(1);
        close(g);
end.