import Data.Maybe
import Control.Monad
import qualified Data.ByteString.Char8 as C

readInt' = fst.fromJust.C.readInt
readLnInt = map readInt'.C.words<$>C.getLine
readCsInt n = concat<$>replicateM n readLnInt

x ? (a,b) = if x then a else b

main = do
 inputs <- readLnInt
 putStr $ (solve inputs)?("Yes","No")

solve [a,b,c,d]
 | c < 0 = True
 | a < 0 = False
 | otherwise = solve [(a-d),b,(c-b),d]
