specialExample :: IO ()
specialExample = runWithStyle [] $
  for_ [(Bold,NotBold),(Italic,NotItalic),(Under,NotUnder),(Invert,NotInvert),(Blink,NotBlink)] $ \(a, b) -> do
    setStyle [a]
    liftIO $ printf "%-20s" $ show a
    setStyle [b]
    liftIO $ printf " %-20s" $ show b
    liftIO $ putChar '\n'
specialExample :: IO ()
specialExample = runWithStyle [] $
  for_ [(Bold,NotBold),(Italic,NotItalic),(Under,NotUnder),(Invert,NotInvert),(Blink,NotBlink)] $ \(a, b) -> do
    setStyle [a]
    liftIO $ printf "%-20s" $ show a
    setStyle [b]
    liftIO $ printf " %-20s" $ show b
    liftIO $ putChar '\n'
specialExample = runWithStyle [] $
  for_ [(Bold,NotBold),(Italic,NotItalic),(Under,NotUnder),(Invert,NotInvert),(Blink,NotBlink)] $ \(a, b) -> do
    setStyle [a]
    liftIO $ printf "%-20s" $ show a
    setStyle [b]
    liftIO $ printf " %-20s" $ show b
    liftIO $ putChar '\n'