dateP :: P.Parser ()
dateP = do replicateM_ 4 P.digit
           P.satisfy (== '-')
           replicateM_ 2 P.digit
           P.satisfy (== '-')
           replicateM_ 2 P.digit
dateP :: P.Parser ()
dateP = do replicateM_ 4 P.digit
           P.satisfy (== '-')
           replicateM_ 2 P.digit
           P.satisfy (== '-')
           replicateM_ 2 P.digit
dateP = do replicateM_ 4 P.digit
           P.satisfy (== '-')
           replicateM_ 2 P.digit
           P.satisfy (== '-')
           replicateM_ 2 P.digit