import Control.Applicative

main = do
    _ <- getLine
    xs <- (map read . words) <$> getLine
    putStrLn $ solve xs

solve :: [Int] -> String
solve xs
    | m2 == 0 && m4 >= m1 - 1 = "Yes"
    | m4 >= m1 = "Yes"
    | otherwise = "No"
  where
    m4 = length $ filter ((== 0) . (`mod` 4)) xs
    m2 = length $ filter ((== 0) . (`mod` 2)) $ filter ((== 0) . (`mod` 4)) xs
    m1 = (length xs ) - m4 - m2
