main = readLn >>=
  \n -> fmap (map read . words) getLine >>=
  \as -> let xs = filter even as;
             ys = filter (\x -> x `mod` 4 /= 0) xs
             zs = filter (\x -> x `mod` 4 == 0) xs
         in if floor (n / 2) - (length zs) <= 0
            then putStrLn "Yes"
            else if n - fromIntegral (2*(length zs)) - fromIntegral (length ys) <= 0
                 then putStrLn "Yes"
                 else putStrLn "No"