[Haskell-beginners] Lifting infix functions in applicative style