import Data.List
main = do
  imput <- map (read::String->Int) . words <$> getLine
  putStrLn $ battle imput

battle [a,b,c,d] =
  if c-b <= 0
    then "Yes"
    else if a-d <= 0
      then "No"
      else battle [a-d,b,c-b,d]