-- | Print a string from within a `MonadIO` monad.
printStr :: MonadIO m => String -> m ()
printStr = liftIO . putStr
printStr :: MonadIO m => String -> m ()
printStr = liftIO . putStr
printStr = liftIO . putStr