module Main where

main :: IO ()
main = getLine >>= putStrLn . solve

solve :: String -> String
solve = judge . (/="1")

judge :: Bool -> String
judge True  = "YES"
judge False = "NO"