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