Add anther Parsec example using Applicative