diff --git a/core-program.cabal b/core-program.cabal
--- a/core-program.cabal
+++ b/core-program.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 4e77f8a52fdda1e7b768f75d3602960d1f59897d2a626c22af12a5f58dc5b38c
+-- hash: 7e0eff3f9f82d279f562a769a41334fdf5600e0bc7c99d4fd9a09b3ad851a872
 
 name:           core-program
-version:        0.2.3.0
+version:        0.2.4.1
 synopsis:       Opinionated Haskell Interoperability
 description:    A library to help build command-line programs, both tools and
                 longer-running daemons.
@@ -67,7 +67,7 @@
     , hashable >=1.2 && <1.4
     , hourglass
     , mtl
-    , prettyprinter >=1.2.1.1 && <1.6
+    , prettyprinter >=1.2.1.1 && <1.7
     , prettyprinter-ansi-terminal
     , safe-exceptions
     , stm
diff --git a/lib/Core/Program/Context.hs b/lib/Core/Program/Context.hs
--- a/lib/Core/Program/Context.hs
+++ b/lib/Core/Program/Context.hs
@@ -22,7 +22,6 @@
       , unProgram
       , getContext
       , subProgram
-      , getConsoleWidth
     ) where
 
 import Prelude hiding (log)
diff --git a/lib/Core/Program/Execute.hs b/lib/Core/Program/Execute.hs
--- a/lib/Core/Program/Execute.hs
+++ b/lib/Core/Program/Execute.hs
@@ -65,6 +65,7 @@
       , setProgramName
       , getVerbosityLevel
       , setVerbosityLevel
+      , getConsoleWidth
       , getApplicationState
       , setApplicationState
       , retrieve
@@ -335,6 +336,20 @@
     liftIO $ do
         let v = programNameFrom context
         readMVar v
+
+{-|
+Retreive the current terminal's width, in characters.
+
+If you are outputting an object with a 'Core.Text.Untilities.Render'
+instance then you may not need this; you can instead use 'wrteR' which is
+aware of the width of your terminal and will reflow (in as much as the
+underlying type's @Render@ instance lets it).
+-}
+getConsoleWidth :: Program τ Int
+getConsoleWidth = do
+    context <- ask
+    let width = terminalWidthFrom context
+    return width
 
 {-|
 Get the user supplied application state as originally supplied to
diff --git a/lib/Core/System/Pretty.hs b/lib/Core/System/Pretty.hs
--- a/lib/Core/System/Pretty.hs
+++ b/lib/Core/System/Pretty.hs
@@ -12,8 +12,10 @@
       Doc
     , Pretty(pretty)
     , dquote
+    , squote
     , comma
     , punctuate
+    , enclose
     , lbracket
     , rbracket
     , (<+>)