-- | Print a string + newline from within a `MonadIO` monad.
printStrLn :: MonadIO m => String -> m ()
printStrLn = liftIO . putStrLn
printStrLn :: MonadIO m => String -> m ()
printStrLn = liftIO . putStrLn
printStrLn = liftIO . putStrLn