rtest :: RTest -> RoundMode -> Rounded -> Bool
rtest f r (Rounded s e l) =  I# (f (mode# r) s e l) /= 0
rtest :: RTest -> RoundMode -> Rounded -> Bool
rtest f r (Rounded s e l) =  I# (f (mode# r) s e l) /= 0
rtest f r (Rounded s e l) =  I# (f (mode# r) s e l) /= 0