{-# htermination (=<<) :: Monad m => (a -> m b) -> m a -> m b #-}