toRational +base

toRational :: Real a => a -> Rational
base Prelude