sig
  val log_gamma : float -> float
  exception Converged
  val gamma_0_x : float -> float -> float
  val gamma_x_infty : float -> float -> float
  val gamma_p : float -> float -> float
  val gamma_complement : float -> float -> float
  val chi_squared : int array -> int -> int array -> int -> float * int
  external chi_square_critical_value : float -> int -> float
    = "chiSquareCriticalValue_wrap"
  val chi_square_table : float -> int -> float
  val close : float -> int array -> int -> int array -> int -> bool
end