main::IO ()
main = do
    _ <- readLn::IO Int
    xs <- map read . words <$> getLine
    
    let two = length [x | x <- xs,x`mod`2 == 0,x`mod`4 /= 0] 
        four = length [x | x <- xs,x`mod`4 == 0] 
    putStrLn $ solve two four (length xs)

solve:: Int -> Int -> Int -> String
solve a b xs
    |a + b == 0 = "No" 
    |xs `div`2 <= b = "Yes"
    |xs - 2 <= a = "Yes"
    |2 <= b && xs - 4 <= a = "Yes"
    |otherwise = "No"
