main=do
    line1<-getLine
    line2<-getLine
    let c1= sum [if z `mod` 2>0 then 1 else 0|z<-[read x ::Int|x<-words line2]]
    let c2= sum [if z`mod`4 >0 && z `mod` 2==0 then 1 else 0|z<-[read x ::Int|x<-words line2]]
    let c4= sum [if z `mod` 4==0 then 1 else 0|z<-[read x ::Int|x<-words line2]]
    solve c1 c2 c4

solve :: Int ->Int ->Int ->IO()
solve c1 0 c4 = if c1<=c4+1 then putStrLn "Yes" else putStrLn "No"
solve c1 _ c4 = if c1<=c4 then putStrLn "Yes" else putStrLn "No"

