Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Monad/Join.hs
module Monad where join :: (Monad m) => m (m a) -> m a join x = x >>= id
