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