applyStyleExample :: IO ()
applyStyleExample = runWithStyle [] $ do
  changeStyle [FgColor Blue] -- No escape sequence generated
  changeStyle [FgColor Red]
  applyStyle                 -- Escape sequences generated
  liftIO $ putStrLn "Red"
applyStyleExample :: IO ()
applyStyleExample = runWithStyle [] $ do
  changeStyle [FgColor Blue] -- No escape sequence generated
  changeStyle [FgColor Red]
  applyStyle                 -- Escape sequences generated
  liftIO $ putStrLn "Red"
applyStyleExample = runWithStyle [] $ do
  changeStyle [FgColor Blue] -- No escape sequence generated
  changeStyle [FgColor Red]
  applyStyle                 -- Escape sequences generated
  liftIO $ putStrLn "Red"