let float_rounding_mode : float_rounding_mode ref = ref `Nearest