parseTag False = do _ <- satisfy (== ',')
                    parseTag True
parseTag False = do _ <- satisfy (== ',')
                    parseTag True
parseTag False = do _ <- satisfy (== ',')
                    parseTag True