let min a =
  Option.value_exn ~message:"Math.min: empty" (Array.reduce a ~f:min)