ocaml: phase 5.1 bs_bounds.ml baseline (lower/upper bound, fingerprint 3211)

C++-style lower_bound / upper_bound on a sorted array:

  lower_bound — first index >= x  (loop uses arr.(mid) < x)
  upper_bound — first index >  x  (loop uses arr.(mid) <= x)

  a = [|1; 2; 2; 3; 3; 3; 5; 7; 9|]

  upper(x) - lower(x) gives the count of x in a:
    cnt3 = 3   cnt2 = 2   cnt5 = 1   cnt9 = 1   cnt4 = 0

  fingerprint = 3*1000 + 2*100 + 1*10 + 1 + 0 = 3211

Tests parallel while loops with bisection on ref, mixed strict
and non-strict comparison branches, count-via-subtraction idiom.

176 baseline programs total.

lib/ocaml/baseline/expected.json

@@ -21,6 +21,7 @@
   "bfs_grid.ml": 8,
   "btree.ml": 39,
   "brainfuck.ml": 75,
+  "bs_bounds.ml": 3211,
   "bsearch.ml": 7,
   "caesar.ml": 215,
   "calc.ml": 13,