setStyleCodeExample :: IO ()
setStyleCodeExample = runStyleT Term8 $ do
  start <- setStyleCode [FgColor Green, Bold]
  end <- setStyleCode [Reset]
  liftIO $ putStrLn (start ++ "Green" ++ end)
setStyleCodeExample :: IO ()
setStyleCodeExample = runStyleT Term8 $ do
  start <- setStyleCode [FgColor Green, Bold]
  end <- setStyleCode [Reset]
  liftIO $ putStrLn (start ++ "Green" ++ end)
setStyleCodeExample = runStyleT Term8 $ do
  start <- setStyleCode [FgColor Green, Bold]
  end <- setStyleCode [Reset]
  liftIO $ putStrLn (start ++ "Green" ++ end)