diff --git a/src-benchmark/Main.hs b/src-benchmark/Main.hs
index 6cc61ff..43afc91 100644
--- a/src-benchmark/Main.hs
+++ b/src-benchmark/Main.hs
@@ -8,5 +8,9 @@ import Criterion.Main
 import Lish.Parser (parseCmd)
 
 main :: IO ()
-main = defaultMain [bench "parseCmd (foo \"bar\")"
-                    (whnf parseCmd ("(foo \"bar\")" :: Text))]
+main = defaultMain
+  [bench "parseCmd (foo \"bar\")"
+    (whnf parseCmd "(foo \"bar\")")
+  , bench "parseCmd (f (f ..28x...))"
+    (whnf parseCmd "(f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f ))))))))))))))))))))))))")
+  ]