import Data.List
import Control.Applicative

f xs = (all $ \x -> x `mod` 4 == 0).(map length).group.sort $ xs

main = do
  xs <- ((map read).words) <$> getLine :: IO [Int]
  putStrLn $ if f xs then "yes" else "no"
