diff --git a/meta-sentences.lisp b/meta-sentences.lisp
new file mode 100644
index 0000000..a612959
--- /dev/null
+++ b/meta-sentences.lisp
@@ -0,0 +1,10 @@
+(load "utils.lisp")
+
+(defun main ()
+  (loop with seen
+        with fmt = (read-line)
+        for len = 10 then (length sentence)
+        for sentence = (format nil fmt len)
+        until (member len seen)
+        do (nunionf seen (list len))
+        do (format t "~3d ~a~%" (length sentence) sentence)))