var f,g:text;
    i,j,k,l,m,o:byte;
    a:array[1..100] of longint;
    n:byte;
    s,s1:longint;
begin
assign(f,'loto.in'); reset(f);
assign(g,'loto.out'); rewrite(g);
read(f,n,s);
for i:=1 to 1 do read(f,a[i]);
for i:=n downto 1 do
  for j:=n downto 1 do
    for k:=n downto 1 do
      for l:=n downto 1 do
        for m:=n downto 1 do
          for o:=n downto 1 do begin
            s1:=0;
            s1:=s1+a[i]+a[j]+a[k]+a[l]+a[m]+a[o];
            if s1=s then begin
              write(g,a[i],' ',a[j],' ',a[k],' ',a[l],' ',a[m],' ',a[o]);
              close(g);
              halt;
            end;
          end;
write(g,'-1');
close(g);
end.