($n,$k)=glob<>;
@a=<>;
sub f{
	my($i,$s)=@_;
	if($i>=@a){
		if($s<=$k&&$b<$s){
			$b=$s;
		}
	}else{
		f($i+1,$s+$a[$i]);
		f($i+1,$s);
	}
}
f(0,0);
print$b+0;