read N
read K
x=()
v=""
for i in `seq 1 $N`; do
  v="$v x[$(($i-1))] "
done
eval read $v

ans=0
for ((i=0;$i<$N;i++)); do
  if [ ${x[$i]} -lt $(($K-${x[$i]})) ]; then
    ans=$(($ans+${x[$i]}))
  else
    ans=$(($ans+$K-${x[$i]}))
  fi
done
echo $(($ans*2))
