-- | Output given chunk in red.
extraChunk :: String -> FormatM ()
extraChunk s = liftF (ExtraChunk s ())
extraChunk :: String -> FormatM ()
extraChunk s = liftF (ExtraChunk s ())
extraChunk s = liftF (ExtraChunk s ())