{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE OverloadedStrings #-} 
import qualified Data.Text.Lazy as T
import qualified Data.Text.Lazy.IO as TIO
import Data.Monoid
import Data.List
import qualified Data.Vector.Unboxed as V

main = do
  input <- TIO.getContents
  let ls = T.lines input 
      n = ls !! 0
      l :: V.Vector Int
      l =   V.fromList $ fmap ( read .T.unpack) $ T.words $ ls !! 1      
      (!s0,!s2,!s4) = V.foldl f (0,0,0) l
        where f  (s0,s2,s4) a  | (a `mod` 4) == 0 = (s0, s2, s4 + 1)
                               | (a `mod` 2 ) == 0 =  (s0, s2 + 1, s4)
                               | otherwise =  (s0 + 1, s2 , s4)
      getR (s0,s2,s4) | (s0<=s4) || ( s0 == s4+1 && s2 == 0 ) = "Yes"  
                      | otherwise = "No"
  Prelude.putStr $  getR (s0,s2,s4)
