import Data.Bool main = getContents >>= putStrLn . bool "NO" "YES" . exp15 . map read . words exp15 [a,b,c] = div (2 * req b) (3 * req c) == 1 where req n = fst $ until ((>=a).snd) (\(x,y)->(succ x, y+n)) (0,0)