Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Ratio/RatioCon.hs
module Ratio((%)) where import DRatio import Reduce infixl 7 % (%) :: (Integral a) => a -> a -> Ratio a x % y = reduce (x * signum y) (abs y)
