Control.Monad.Shuffle
class
Shuffle
m1 m2
shuffleJoin
($>>=)
deepBind