Representation of floating point numbers
type ieee_type = | NAN| INF| NORMAL| DENORMAL| ZERO
type float_rep = {sign : int;mantissa : string;exponent : int;ieee_type : ieee_type;
}val print : float -> stringIEEE environment
type precision = | SINGLE| DOUBLE| EXTENDED
type rounding = | TO_NEAREST| DOWN| UP| TO_ZERO
type exceptions = | MASK_INVALID| MASK_DENORMALIZED| MASK_DIVISION_BY_ZERO| MASK_OVERFLOW| MASK_UNDERFLOW| MASK_ALL| TRAP_INEXACT
val env_setup : unit -> unitFPU status word
type excepts = | FE_INEXACT| FE_DIVBYZERO| FE_UNDERFLOW| FE_OVERFLOW| FE_INVALID| FE_ALL_EXCEPT
val clear_except : excepts list -> unit