import Control.Monad
import Control.Applicative
import Data.List
import Data.Array
strToInt s = (read :: String -> Int) s

main = do
    n <- readLn :: IO Int
    an <- map read . words <$> getLine
    let bn = map judge an
    
    putStrLn $ solve bn

judge :: Int -> Int
judge n = if (n `mod` 4) == 0
          then 2
          else if (n `mod` 2) == 0
               then 1
               else 0
               
solve :: [Int] -> String
solve xn = if ( (c-a) >= 0 ) && ((c /= 0) || ( (c==0) && (b `mod` 2) == 0) ) || ((a-c) == 1 && (b `mod` 2) == 0)
           then "Yes"
           else "No"
             where a = length $ (filter (==0) xn)
                   b = length $ (filter (==1) xn)
                   c = length $ (filter (==2) xn)