foo :: Monad m