diff --git a/lisp/land-of-lisp/random_practice/list-eater/list-eater.cl b/lisp/land-of-lisp/random_practice/list-eater/list-eater.cl
new file mode 100644
index 0000000..13d01a8
--- /dev/null
+++ b/lisp/land-of-lisp/random_practice/list-eater/list-eater.cl
@@ -0,0 +1,7 @@
+(defun print-list(lst)
+	(if lst
+		(progn
+			(print(car lst))
+			(print-list(cdr lst)))
+		'DONE))
+