From 439216d4370e91e3fb5945aa6085fd4cb563eaee Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Fri, 12 Jul 2024 12:02:08 -0700
Subject: [PATCH] Add PROG example

---
 src/lisp/prog.lisp | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 src/lisp/prog.lisp

diff --git a/src/lisp/prog.lisp b/src/lisp/prog.lisp
new file mode 100644
index 0000000..c10a504
--- /dev/null
+++ b/src/lisp/prog.lisp
@@ -0,0 +1,11 @@
+(label length (lambda (l)
+                (prog (u v)
+                  (setq v 0)
+                  (setq u l)
+                a (cond ((null u),(return v)))
+                  (setq u (cdr u))
+                  (setq v (+ 1 v))
+                  (go a)
+                )
+              )
+)