generische Aktionen/Verknüpfungen:
>>=)
class Monad m where
return :: a -> m a
(>>=) :: m a
-> (a -> m b) -- Continuation
-> m b
instance Monad Action where
return x = Action $ \ s -> ( s, x )
Action a >>= f = Action $ \ s -> ...