[Haskell-cafe] Applicative functors with branch/choice ?