diff --git a/src/assessment/nps.lisp b/src/assessment/nps.lisp
index b0dc5ec..65dcb86 100644
--- a/src/assessment/nps.lisp
+++ b/src/assessment/nps.lisp
@@ -10,12 +10,12 @@
   (check-type data list)
   (unless data (error "Empty DATA list."))
   (let ((clean-data (remove-if (lambda (x) (or (> x 10) (< x 1))) data)))
-    (loop for score in clean-data
-          counting (>= score 9) into promoters
-          counting (<= score 6) into detractors
-          finally (return (list promoters
-                                detractors
-                                (length clean-data))))))
+    (loop :for score :in clean-data
+          :counting (>= score 9) :into promoters
+          :counting (<= score 6) :into detractors
+          :finally (return (list promoters
+                                 detractors
+                                 (length clean-data))))))
 
 ;;;
 ;;; CALCULATOR