Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Ratio/Numerator.hs
module Ratio where import DRatio numerator :: (Integral a) => Ratio a -> a numerator (x :% y) = x
