let foi = float_of_int