import Control.Applicative

solver :: [Int] -> Bool
solver xs
     |no == 1 && n4 == 0 = False
     |n4 == no-1 && n2 ==0 = True
     |n4 >= no = True
     |otherwise = False
         where
	 no = length  [x|x<- xs, odd x]
	 n4 = length  [x|x<- xs, x `mod` 4 ==0]
	 n2 = length  [x|x<- xs, even x] - n4
 

myshow True = "Yes"
myshow False = "No"

main :: IO ()
main = do
    getLine
    xs <- map read . words <$> getLine 
    putStrLn $ myshow $ solver xs

