open Batteries                                                                                          |ymiyamoto@PC-PA1705C2684R:~/src/github.com/MiyamonY/atcoder/abc/97/a$ ocamlc a.ml
                                                                                                         |File "a.ml", line 1, characters 5-14:
 let input_ints () =                                                                                     |Error: Unbound module Batteries
!  let input = IO.read_line IO.stdin in                                                                  |ymiyamoto@PC-PA1705C2684R:~/src/github.com/MiyamonY/atcoder/abc/97/a$ ocamlfind ocamlc -package batteries \
   String.split_on_char ' ' input                                                                        |-linkpkg a.ml -o a
   |> List.map int_of_string                                                                             |ymiyamoto@PC-PA1705C2684R:~/src/github.com/MiyamonY/atcoder/abc/97/a$ ./a
                                                                                                         |ymiyamoto@PC-PA1705C2684R:~/src/github.com/MiyamonY/atcoder/abc/97/a$ ocamlfind ocamlc -package batteries \
 let last l =                                                                                            |-linkpkg a.ml -o a
   (-) (List.length l) 1                                                                                 |ymiyamoto@PC-PA1705C2684R:~/src/github.com/MiyamonY/atcoder/abc/97/a$ ./a
   |> List.nth l                                                                                         |1 2 3 4
                                                                                                         |
 let main () =                                                                                           |
   let l  = input_ints () in                                                                             |Fatal error: exception Failure("int_of_string")
   let d = last l in                                                                                     |ymiyamoto@PC-PA1705C2684R:~/src/github.com/MiyamonY/atcoder/abc/97/a$ ocamlfind ocamlc -package batteries \
   let a = List.nth l 0 in                                                                               |-linkpkg a.ml -o a
   let b = List.nth l 1 in                                                                               |ymiyamoto@PC-PA1705C2684R:~/src/github.com/MiyamonY/atcoder/abc/97/a$ 1 2 3 4
   let c = List.nth l 2 in                                                                               |1: command not found
   if abs (b - a) ≤ d ∧ abs (c - b) ≤ d then                                                             |ymiyamoto@PC-PA1705C2684R:~/src/github.com/MiyamonY/atcoder/abc/97/a$ ./a
     print_string "Yes\n"                                                                                |1 2 3 4
   else                                                                                                  |Yes
     print_string "No\n"                                                                                 |ymiyamoto@PC-PA1705C2684R:~/src/github.com/MiyamonY/atcoder/abc/97/a$ 1 2 3 4
                                                                                                         |1: command not found
 let _ = main ()       