diff --git a/day14.lisp b/day14.lisp
index 1c80f3f..257e014 100644
--- a/day14.lisp
+++ b/day14.lisp
@@ -16,7 +16,7 @@
               :for (rest digit) := (multiple-value-list (floor number 10))
               :then (multiple-value-list (floor rest 10))
               :collect digit
-              :while (> rest 0)))))
+              :while (> rest 0))))
 
 (defun day14 (&optional (input 327901))
   (loop :with recipes := (day14-prepare-recipes input)