import qualified Data.ByteString.Char8 as BC
import Data.Maybe
import Data.Bool

readIntsLine :: IO [Int]
readIntsLine = map (fst . fromJust . BC.readInt) . BC.words <$> BC.getLine

count :: [Int] -> (Int, Int, Int) -> (Int, Int, Int)
count [] b = b
count (a:as) (b1, b2, b4)
  | a `mod` 4 == 0 = count as (b1, b2, b4 + 1)
  | a `mod` 2 == 0 = count as (b1, b2 + 1, b4)
  | otherwise = count as (b1 + 1, b2, b4)

main :: IO ()
main = do
  getLine
  as <- readIntsLine
  let (b1, b2, b4) = count as (0, 0, 0)
  putStrLn $ if b1 <= b4 + bool 0 1 (b2 == 0) then "Yes" else "No"
