main :: IO ()
main = do
  (a:b:c:d:_) <- map read . words <$> getLine :: IO [Double]
  let numT = ceiling $ c / b
      numA = ceiling $ a / d
  putStrLn $ if numT <= numA
             then "Yes"
             else "No"
