{-# htermination showList :: [(Ratio Int)] -> String -> String #-}