module Module where

data Ratio a = MkRatio a a

instance (Show a) => Show (Ratio a) where
  {-# SPECIALIZE instance Show (Ratio Integer) #-}
  showsPrec _ (MkRatio n d) 
    = shows n
    . showString " % "
    . shows d