colors256Example :: IO ()
colors256Example = runWithStyle [] $
  for_ [0..255] $ \c -> do
    withStyle [BgColor $ Color256 c] $ liftIO $ printf "%02x" c
    withStyle [FgColor $ Color256 c] $ liftIO $ printf " %02x" c
    withStyle [BgColor $ Color256 c, Invert] $ liftIO $ printf " %02x" c
    withStyle [FgColor $ Color256 c, Invert] $ liftIO $ printf " %02x" c
    liftIO $ putChar '\n'
colors256Example :: IO ()
colors256Example = runWithStyle [] $
  for_ [0..255] $ \c -> do
    withStyle [BgColor $ Color256 c] $ liftIO $ printf "%02x" c
    withStyle [FgColor $ Color256 c] $ liftIO $ printf " %02x" c
    withStyle [BgColor $ Color256 c, Invert] $ liftIO $ printf " %02x" c
    withStyle [FgColor $ Color256 c, Invert] $ liftIO $ printf " %02x" c
    liftIO $ putChar '\n'
colors256Example = runWithStyle [] $
  for_ [0..255] $ \c -> do
    withStyle [BgColor $ Color256 c] $ liftIO $ printf "%02x" c
    withStyle [FgColor $ Color256 c] $ liftIO $ printf " %02x" c
    withStyle [BgColor $ Color256 c, Invert] $ liftIO $ printf " %02x" c
    withStyle [FgColor $ Color256 c, Invert] $ liftIO $ printf " %02x" c
    liftIO $ putChar '\n'