anchor.diff:      (format t "You have not yet reached enlightenment ...~%")
       (format t (koan-status-message koan-status))
       (format t "~%")
  -    (format t "Please meditate on the following code:~%")
  +    (format t "[1mPlease meditate on the following code:~%[0m")
       (format t "   File \"~A/~A.lsp\"~%" *koan-dir-name* (string-downcase filename))
       (format t "   Koan \"~A\"~%" koan-name)
       (format t "   Current koan assert status is \"~A\"~%" (reverse koan-status))))
  
positive.code:                      #'(lambda (x) (equalp :pass x))
                       (second k-result))))
      (if all-pass-p
          (format t "~A has expanded your awareness.~%" koan-name)
          (format t "~A requires more meditation.~%" koan-name))))
  
  (defun print-koan-group-progress (kg-name kg-results)
    (format t "~%Thinking about ~A~%" kg-name)
  
negative.code: (defun koan-status-message (koan-status)
    (if (find :incomplete koan-status)
         (return-from koan-status-message
           "  [1m[33mA koan is incomplete.~%[0m"))
    (if (find :fail koan-status)
         (return-from koan-status-message
           "  [1m[31mA koan is incorrect.~%[0m"))
    (if (find :error koan-status)
         (return-from koan-status-message
           "  A koan threw an error.~%"))
  