ocaml: phase 5.1 matrix_power.ml baseline (F(30) = 832040 via 2x2 matrix pow)

Fibonacci via repeated-squaring matrix exponentiation:

  [[1, 1], [1, 0]] ^ n = [[F(n+1), F(n)], [F(n), F(n-1)]]

Recursive O(log n) power:

  let rec mpow m n =
    if n = 0 then identity
    else if n mod 2 = 0 then let h = mpow m (n / 2) in mul h h
    else mul m (mpow m (n - 1))

Returns the .b cell after raising to the 30th power -> 832040 = F(30).

Tests record literal construction inside recursive function returns,
record field access (x.a etc), and pure integer arithmetic in the
matrix multiply.

165 baseline programs total.

lib/ocaml/baseline/expected.json

@@ -82,6 +82,7 @@
   "list_ops.ml": 30,
   "luhn.ml": 2,
   "mat_mul.ml": 621,
+  "matrix_power.ml": 832040,
   "max_path_tree.ml": 11,
   "max_product3.ml": 300,
   "max_run.ml": 5,