diff --git a/CHANGELOG.md b/CHANGELOG.md
new file mode 100644
--- /dev/null
+++ b/CHANGELOG.md
diff --git a/savage.cabal b/savage.cabal
--- a/savage.cabal
+++ b/savage.cabal
@@ -1,4 +1,4 @@
-version: 1.0.2
+version: 1.0.3
 
 name:
   savage
diff --git a/src/Savage/Internal/Gen.hs b/src/Savage/Internal/Gen.hs
--- a/src/Savage/Internal/Gen.hs
+++ b/src/Savage/Internal/Gen.hs
@@ -123,6 +123,8 @@
   , printTree
   , printWith
   , printTreeWith
+  , printOnly
+  , printWithOnly
 
   -- * Internal
   -- $internal
@@ -1532,6 +1534,24 @@
               pure $ nodeValue x
     in
       loop (100 :: Int)
+
+-- | Print the value produced by a generator, for the given size and seed.
+--
+printWithOnly :: (MonadIO m, Show a) => Size -> Seed -> Gen a -> m ()
+printWithOnly size seed gen =
+  liftIO $ do
+    let
+      Node x ss =
+        runIdentity . runTree $ renderNodes size seed gen
+    
+    putStrLn x
+
+-- | Run a generator and print the value produced by it.
+--
+printOnly :: (MonadIO m, Show a) => Gen a -> m ()
+printOnly gen = do
+  seed <- liftIO Seed.random
+  printWithOnly 0 seed gen
 
 -- | Print the value produced by a generator, and the first level of shrinks,
 --   for the given size and seed.