(* Baseline: factorial via let-rec *)
let rec fact n =
  if n = 0 then 1 else n * fact (n - 1) ;;
fact 10