Module NS.Sign

type t =
  1. | Neg
  2. | Zero
  3. | Pos
val of_int : int -> t
val of_float : float -> t