Bas Bossink
April 2010
class Monad m where (>>=) :: m a -> (a -> m b) -> m b return :: a -> m a instance Monad [] where return x = [x] xs >>= f = concat (map f xs)