import Control.Applicative

ans :: [Integer] -> Bool
ans lst =
    let count :: [Integer] -> (Int, Int, Int)
        count [] = (0, 0, 0)
        count (first:rest)
            | (mod first 4) == 0 =
                let (x, y, z) = count rest
                    in (x, y, z + 1)
            | (mod first 2) == 0 =
                let (x, y, z) = count rest
                    in (x, y + 1, z)
            | otherwise = 
                let (x, y, z) = count rest
                    in (x + 1, y, z)
        (odds, evens, fours) = count lst
        in if evens < 1 then (odds - 1 <= fours) else (odds <= fours)

out :: Bool -> String
out a = if a then "Yes" else "No"

main = do
    getLine
    putStrLn =<< out . ans . (map (\a -> read a :: Integer)) . words <$> getLine
