let close significance_level =
    let chi_square_table = chi_square_table significance_level in
  fun distrib1 nb_samples1 distrib2 nb_samples2 ->
    let sum, degrees_of_freedom = chi_squared distrib1 nb_samples1 distrib2 nb_samples2 in
    sum < chi_square_table degrees_of_freedom