import Data.Bool
import qualified Data.ByteString.Char8 as C
import qualified Data.Vector.Unboxed as U

main = C.interact $ put . sol . get

get = U.unfoldr (C.readInt . C.dropWhile (<'0'))

put = C.pack . bool "No" "Yes"

sol v = 2*q+max 1 e>=U.head v
  where
  (q,e) = U.foldl' f (0,0) (U.tail v)

f (q,e) a
  | a`mod`4==0  = (q+1,e)
  | even a      = (q,e+1)
  | otherwise   = (q,e)