sepBy :: Parser s -> Parser a -> Parser [a]
sepBy s x = (:) <$> x <*> many (s *> x) <|> pure []
sepBy :: Parser s -> Parser a -> Parser [a]
sepBy s x = (:) <$> x <*> many (s *> x) <|> pure []
sepBy s x = (:) <$> x <*> many (s *> x) <|> pure []