sig
  type t = Neg | Zero | Pos
  val t_of_sexp : Sexplib.Sexp.t -> Float_intf.S.Sign.t
  val sexp_of_t : Float_intf.S.Sign.t -> Sexplib.Sexp.t
end