+#ifdef __HUGS__
+-- These functions are defined in the Prelude.
+-- sequence :: Monad m => [m a] -> m [a]
+-- sequence_ :: Monad m => [m a] -> m ()
+-- mapM :: Monad m => (a -> m b) -> [a] -> m [b]
+-- mapM_ :: Monad m => (a -> m b) -> [a] -> m ()
+#else