Bisect Ocaml Programming Chapter 6 Video 18