import Data.Sequence
import Data.Bool

main = do
  getLine
  as <- fromList . map read . words <$> getLine
  let o = length $ filter odd as
  let f = length $ filter ((`mod` 4) == 0) as
  let t = bool 1 0 $ length as > o + f
  putStr . bool "Yes" "No" $ f + 2 > o + t