module Main where type Input = Int type Output = Bool parse :: String -> Input parse = read solve :: Input -> Output solve = even render :: Output -> String render True = "YES" render False = "NO" main :: IO () main = interact ( render . solve . parse )