-class Monad m where\r
- (>>=) :: m a -> (a -> m b) -> m b\r
-\r
-@macro\r
-(>>) :: Monad m => m a -> m b -> m b\r
-ma >> mb = ma >>= (\_ -> mb)\r
-\r
-main = "OK"\r
---\r
+class Monad m where
+ (>>=) :: m a -> (a -> m b) -> m b
+
+@macro
+(>>) :: Monad m => m a -> m b -> m b
+ma >> mb = ma >>= (\_ -> mb)
+
+main = "OK"
+--
OK
\ No newline at end of file