# * * * *               Characters 210-289:
  ....match None with
      | exception e -> ()
      | Some false -> ()
      | None -> ()
Warning 8: this pattern-matching is not exhaustive.
Here is an example of a value that is not matched:
Some true
val test_match_exhaustiveness : unit -> unit = <fun>
#