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