read n k
a=()
for ((i=0; i<$n; i++))
do
    read a[i]
done

ans=0

for ((mask=0; mask<$((1<<n)); mask++))
do
    tmp=0
    for ((i=0; i<$n; i++))
    do
        if [ $((mask & (1<<i))) != 0 ]; then
            tmp=$((tmp+a[i]))
        fi
    done
    if [ $(((tmp <= k) && (ans < tmp))) == 1 ]; then
        ans=$tmp
    fi
done

echo $ans