import Data.List
main=interact $ f.map read.words.head.tail.lines
f x 
  | odds <= fours = "Yes"
  | odds == fours + 1  && twos ==0 = "Yes"
  | otherwise = "No"
  where odds = g 1 x + (g 3 x)
        twos = g 2 x
        fours = g 0 x
g::Int->[Int]->Int
g k x = length $ filter ((k==).flip mod 4) x