read t
ans=
for ((;t--;)); do
  read n m
  ((m/=2))
  ans+="$((n/4 <= m ? n/4*3 : m*3+(n-m*4)/10*6+((n-4*m)%10>=6 ? 3 : 0))) "
done
echo $ans