main :: IO ()
main = do
 n <- readLn :: IO Int
 as <- map read . words <$> getLine
 let cnt4 = length $ filter ((0 ==).(`mod`4)) as
     cnt2 = length $ filter (\x -> 0 == (x`mod`2) && 0 /= (x`div`4)) as
     cnt0 = length $ filter ((/=0).(`mod`2)) as
 if cnt4 >= cnt0 then putStrLn "Yes"
   else putStrLn "No"