import Data.Bool

main = do
  getLine
  as <- map read . words <$> getLine
  let o = length [ a | a <- as, odd a]
  let f = length [ a | a <- as, a `mod` 4 == 0 ]
  let t = bool 1 0 $ length as - o - f > 0
  putStr . bool "Yes" "No" $ f + 2 > o + t