main = putStrLn . solve . map read . words =<< getContents

solve :: [Int] -> String
solve (n:as) = if n - length as' >= n `quot` 2 then "Yes" else "No"
    where
        as' = filter ((/= 0) . (`mod` 4)) as
