Use liftA2 and *> for applicative style.