From cc5f486df6ec44e54f4989e0596e10e311287ee2 Mon Sep 17 00:00:00 2001
From: mehbark <terezi@pyrope.net>
Date: Wed, 18 Dec 2024 19:05:37 -0500
Subject: [PATCH] self-referential sentences

---
 meta-sentences.lisp | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 meta-sentences.lisp

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)))