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