let float_model : float_model ref = ref `Real