anchor.diff:  (constant '+fg-light-red+     "\027[1;31m")
   (constant '+fg-light-green+   "\027[1;32m")
   (constant '+fg-light-yellow+  "\027[1;33m")
  +(constant '+fg-purple+        "\027[1;35m")
   (constant '+fg-red+           "\027[31m")
   (constant '+fg-green+         "\027[32m")
   (constant '+fg-yellow+        "\027[33m")
  
positive.code:   (let (report
          (if (true? *verbose*)
              (colorize 'fg-red "--> " (string expression) " FAILED!")
              (colorize 'fg-red
                        ;; "--> Expression: " (string (expression 2))
                        "--> " (string expression)
                        " => Expected: " (string (eval (expression 1)))
                        " -> Received: " (string (eval (expression 2))) ".")))
      (if *report-failed*
          (println report)))
    nil)
  
negative.code:                  (time (if (apply symbol)
                             (inc passed)
                             (inc failed))))
              )))
  
      ;; make report and colorize if necessary
      (setq counter (+ failed passed))
  