ansiColorsExample :: IO ()
ansiColorsExample = runWithStyle [] $
  for_ ansiColors $ \c -> do
    withStyle [BgColor c] $ liftIO $ printf "%-15s" $ show c
    withStyle [FgColor c] $ liftIO $ printf " %-15s" $ show c
    withStyle [BgColor c, Invert] $ liftIO $ printf " %-15s" $ show c
    withStyle [FgColor c, Invert] $ liftIO $ printf " %-15s" $ show c
    liftIO $ putChar '\n'
ansiColorsExample :: IO ()
ansiColorsExample = runWithStyle [] $
  for_ ansiColors $ \c -> do
    withStyle [BgColor c] $ liftIO $ printf "%-15s" $ show c
    withStyle [FgColor c] $ liftIO $ printf " %-15s" $ show c
    withStyle [BgColor c, Invert] $ liftIO $ printf " %-15s" $ show c
    withStyle [FgColor c, Invert] $ liftIO $ printf " %-15s" $ show c
    liftIO $ putChar '\n'
ansiColorsExample = runWithStyle [] $
  for_ ansiColors $ \c -> do
    withStyle [BgColor c] $ liftIO $ printf "%-15s" $ show c
    withStyle [FgColor c] $ liftIO $ printf " %-15s" $ show c
    withStyle [BgColor c, Invert] $ liftIO $ printf " %-15s" $ show c
    withStyle [FgColor c, Invert] $ liftIO $ printf " %-15s" $ show c
    liftIO $ putChar '\n'