judge :: [Double] -> String judge (a : b : c : _) = if 2 * (ceiling $ a / b) >= 3 * (ceiling $ a / c) then "YES" else "NO" main :: IO () main = putStrLn . judge . map read . lines =<< getContents