[project @ 2003-06-03 22:26:44 by diatchki]
[ghc-base.git] / Control / Monad / X / tests / Nondet.hs
1 import Control.Monad.X.Nondet
2
3 assoc1 a b c = (a `mplus` b) `mplus` c
4 assoc2 a b c = a `mplus` (b `mplus` c)
5