read -d! n k a
for a in $a;{((a>k?c+=a:0))||b[a]+=\ $a;}
b=(${b[@]})
for((i=${#b[@]}+1;i>1;z+=b[i-=2])){ :;}
echo $[z+(c+(~n&1)>>1)]