hp section("interface", "interface") ?>

  <PRE>
    signature IEEE_REAL =
    sig
	 exception Unordered

	 datatype real_order    = LESS | EQUAL | GREATER | UNORDERED
	 datatype float_class   = NAN | INF | ZERO | NORMAL | SUBNORMAL
	 datatype rounding_mode = TO_NEAREST | TO_NEGINF | TO_POSINF | TO_ZERO
	 type decimal_approx    = {kind : float_class, sign : bool, digits : int list,  exp : int}

	 val getRoundingMode : unit -> rounding_mode
	 val setRoundingMode : rounding_mode -> unit

	 val toString :     