main = do
    _ <- fmap (map read . words)getLine :: IO [Int]
    xs <- fmap (map read . words)getLine :: IO [Int]
    putStrLn $ solve xs

solve :: [Int] -> String
solve xs = case m xs of
    (four, two, one) | two == 0 && one <= four + 1 -> "Yes"
                     | two /= 0 && one <= four -> "Yes"
                     | otherwise -> "No"
m = foldl f (0, 0, 0)
  where
    f (four, two, one) x | x `mod` 4 == 0 = (four + 1, two, one)
                         | x `mod` 2 == 0 = (four, two + 1, one)
                         | otherwise      = (four, two, one + 1)
