Program loto;
var f,g:text;
	v:array[1..100] of real;
	N,i,i2,i3,i4,i5,i6:byte;
	s:real;
	done:boolean;
begin
	assign(f,'loto.in'); reset(f);	
	assign(g,'loto.out'); rewrite(g);
	readln(f,n,s);
	done:=false;
	for i:=1 to n do read(f,v[i]);
	for i:=1 to n do
	for i2:=1 to n do
	for i3:=1 to n do
	for i4:=1 to n do
	for i5:=1 to n do
	for i6:=1 to n do
	if v[i]+v[i2]+v[i3]+v[i4]+v[i5]+v[i6]=s then
	begin
		writeln(g,v[i],' ',v[i2],' ',v[i3],' ',v[i4],' ',v[i5],' ',v[i6]);
		done:=true;
		close(g);
		break;break;break;break;break;break;
	end;
	if not done then begin writeln(g,-1); close(g); end;
	close(f);
end.