program loto;

var n,s,i:integer;
    f:text;
    a:array[1..100] of integer;
    sol:array[1..100] of integer;
    finish:boolean;

procedure tryEnd;
var i,nr:integer;
begin
       nr:=0;
       for i:=1 to 6 do
                nr:=nr+sol[i];
       if nr=s then finish:=true;
end;

procedure back(int k);
var i:integer;
begin
    if (k>6) tryEnd;
    else begin
        for i:=1 to n do begin
                sol[k]:=i;
                if not finish then back(k+1);
        end;
end;

begin
        {citire}
        assign(f,'loto.in');
        reset(f);
        readln(f,n,s);
        for i:=1 to n do readln(a[i]);
        close(f);

        {rezolvare}
        back(1);

        {scriere}
        assign(f,'loto.out');
        rewrite(f);
        if (finish=false) then write(f,'-1')
        else for i:=1 to 6 do write (sol[i],' ');
        close(f);
end.