let a = ref 0 and b = ref 0 and c = ref 0 and d = ref 0 and s = ref 0 in
    Scanf.sscanf (read_line ()) "%d %d %d %d" (fun w x y z -> a := w; b := x; c := y; d := z);
    if !a - !b >= 0 then (if !b - !c >= 0 then () else (s := !b; b := !c; c := !s)) else (if !a - !c >= 0 then (s := !a; a := !b; b := !s) else (s := !a; a := !c; c := !s));
    if !b - !c <= !d then begin if !a - !b <= !d then print_string "Yes" else print_string "No" end else print_string "No"; print_string "\n"