import Data.Bool
import qualified Data.ByteString.Char8 as C
import Data.List

main = C.interact $ put . sol . get

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

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

sol (n:as) = q*2>=n || e==n || q*2+e>=n
  where
  (o,q,e) = f (0,0,0) as
  f (o,q,e) []    = (o,q,e)
  f (o,q,e) (a:as)
    | odd a       = f (succ o,q,e) as
    | a`mod`4==0  = f (o,succ q,e) as
    | even a      = f (o,q,succ e) as