diff --git a/test/Test.hs b/test/Test.hs
index 43d04d8..1935717 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -21,5 +21,6 @@ main = do
   Simple.reprintSexpr Simple.a_sexpr
   putStrLn "== Visualise megaparsec/prettyprinter PUP =="
   Best.reprintSexpr Best.a_small_sexpr
+  Best.reprintSexpr Best.a_medium_sexpr
   Best.reprintSexpr Best.a_sexpr
   Hedgehog.defaultMain [Simple.tests, Best.tests]
diff --git a/test/Test/Best.hs b/test/Test/Best.hs
index 467a3c5..31cd763 100644
--- a/test/Test/Best.hs
+++ b/test/Test/Best.hs
@@ -10,6 +10,7 @@ module Test.Best
     reprintSexpr,
     a_small_sexpr,
     a_sexpr,
+    a_medium_sexpr,
   )
 where
 
@@ -167,6 +168,11 @@ reprintSexpr str = do
 a_small_sexpr :: Text
 a_small_sexpr = "((abstr 57 :tag) \"this is nested\")"
 
+a_medium_sexpr :: Text
+a_medium_sexpr =
+  "((a-fun 57 :tag) \"a string\" (list 1 \"somewhat\" :long \"list of mixed types\"\
+  \ (list \"at least\" 3) (list \"but maybe\" :more)))"
+
 -- Modified Emacs Lisp
 a_sexpr :: Text
 a_sexpr =