module Main where import Control.Monad import Data.Ratio amt :: Int -> Int -> Int amt exp xs = case exp `divMod` xs of (q, 0) -> q (q, _) -> q + 1 main :: IO () main = do [a, b, c] <- replicateM 3 readLn :: IO [Int] let x = amt a b let y = amt a c if (y % x) <= (2 % 3) then putStrLn "YES" else putStrLn "NO"