program loto;

var f : text;
    n,i : byte;
    s,suma,p : longint;
    a,v : array[0..101] of longint;
    sol : array[0..7] of longint;

function det : longint;
var i : byte;
begin
    i := 1;
    while not ( (v[i] <= p) and (p < v[i+1]) ) and (i < n) do i := i+1;

    p := p-a[i];

    det := a[i];

    for i := 1 to n do
        v[i] := v[i]-a[i];
end;

begin
    assign(f,'loto.in'); reset(f);
    readln(f,n,s);
    for i := 1 to n do begin
        read(f,a[i]);
        v[i] := a[i]*6;
        end;
    close(f);

    a[n+1] := a[n]+1;
    v[n+1] := a[n+1]*6;

    assign(f,'loto.out'); rewrite(f);

    if (s < v[1]) or (s > v[n]) then write(f,-1)
    else begin
        p := s; suma := 0;
        for i := 1 to 6 do begin
            sol[i] := det;
            suma := suma+sol[i];
            end;
        if suma = s then
            for i := 1 to 6 do
                write(f,sol[i],' ')
        else
            write(f,-1);

        end;

    close(f);
end.