-- 4-adjacent.hs --- 4-adjacent

-- author: Seong Yong-ju <sei40kr@gmail.com>

inspect :: [Int] -> (Int, Int)
inspect [] = (0, 0)
inspect (a:as) =
  (c1 + (if a `mod` 2 /= 0 then 1 else 0), c2 + (if a `mod` 4 == 0 then 1 else 0))
  where
    (c1, c2) = inspect as

solve :: [Int] -> Bool
solve as = c1 <= c2
  where
    (c1, c2) = inspect as

main :: IO ()
main = do
  n <- (read :: String -> Int) <$> getLine
  as <- take n . map (read :: String -> Int) . words <$> getLine
  putStrLn $ if solve as then "Yes" else "No"
