unary_ :: Unary_ -> RoundMode -> Precision -> Rounded -> ( Rounded, Int )
unary_ f r p (Rounded s e l) = ( Rounded s' e' l', I# t) where
    (# s', e', l', t #) = f (mode# r) (prec# p) s e l

unary_ :: Unary_ -> RoundMode -> Precision -> Rounded -> ( Rounded, Int )
unary_ f r p (Rounded s e l) = ( Rounded s' e' l', I# t) where
    (# s', e', l', t #) = f (mode# r) (prec# p) s e l

unary_ f r p (Rounded s e l) = ( Rounded s' e' l', I# t) where
    (# s', e', l', t #) = f (mode# r) (prec# p) s e l
