instance (Integral a, Bounded a) => Bounded (Ratio a) where

    minBound = minBound % 1

    maxBound = maxBound % 1