Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Ratio/DRatio.hs
module Ratio (Ratio(..)) where infixl 7 :% data Integral a => Ratio a = !a :% !a