ocaml: phase 5.1 max_product3.ml baseline (max product of 3, with negatives -> 300)

Sort, then compare two candidates:
  p1 = product of three largest values
  p2 = product of two smallest (potentially negative) values and the largest

For [-10;-10;1;3;2]:
  sorted    = [-10;-10;1;2;3]
  p1        = 3 * 2 * 1                = 6
  p2        = (-10) * (-10) * 3        = 300
  max       = 300

Tests List.sort + Array.of_list + arr.(n-i) end-walk + candidate-pick
via if-then-else.

104 baseline programs total.

lib/ocaml/baseline/expected.json

@@ -51,6 +51,7 @@
   "luhn.ml": 2,
   "mat_mul.ml": 621,
   "max_path_tree.ml": 11,
+  "max_product3.ml": 300,
   "max_run.ml": 5,
   "mod_inverse.ml": 27,
   "json_pretty.ml": 24,