main = getContents >>= putStrLn . solve . map read . lines solve :: [Int] -> String solve [a, b, c] | fromIntegral n <= 2.0 * fromIntegral m / 3.0 = "YES" | otherwise = "NO" where n = ceiling $ fromIntegral a / fromIntegral c m = ceiling $ fromIntegral a / fromIntegral b