path: root/monad/h1.hs

instance Monad [] where
    return a = [a]
    (>>=) as f = concatMap f as