Program cel;
Type vector=array[1..100] of longint;
var f,g:text;
    x:vector;
    n,i,j,k,l,m,o,s:longint;
    ok:boolean;
Begin
Assign(f,'loto.in');Reset(f);
Assign(g,'loto.out');Rewrite(g);
Readln(f,n,s);
For i:=1 to n do Read(f,x[i]);
ok:=false;
For i:=1 to n do
 {If ok then break
       else    }
 For j:=1 to n do
  For k:=1 to n do
   For l:=1 to n do
    For m:=1 to n do
     For o:=1 to n do
      If (x[i]+x[j]+x[k]+x[l]+x[m]+x[o]=s) and (not ok) then Begin
                                               ok:=true;
                                               Write(g,i,' ',j,' ',k,' ',l,' ',m,' ',o);
                                              end;
{If not ok then Write(g,-1); }
Close(f);
Close(g);
end.