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

solve :: [Int] -> String
solve (n:as) = if (even as2 || even (as2 + as4)) && n - as2 - as4 <= n `quot` 2  then "Yes" else "No"
    where
        as2 = length $ filter (\a -> even a && a `mod` 4 /= 0) as
        as4 = length $ filter ((== 0) . (`mod` 4)) as
