getDate :: ReadP (Integer, Int, Int)
getDate = do y <- munch1 isDigit
             _ <- satisfy (== '-')
             m <- munch1 isDigit
             _ <- satisfy (== '-')
             d <- munch1 isDigit
             return (read y, read m, read d)
getDate :: ReadP (Integer, Int, Int)
getDate = do y <- munch1 isDigit
             _ <- satisfy (== '-')
             m <- munch1 isDigit
             _ <- satisfy (== '-')
             d <- munch1 isDigit
             return (read y, read m, read d)
getDate = do y <- munch1 isDigit
             _ <- satisfy (== '-')
             m <- munch1 isDigit
             _ <- satisfy (== '-')
             d <- munch1 isDigit
             return (read y, read m, read d)