Add solution for Problem003 written in Common Lisp
user
```common lisp
;; Common Lisp Script
;; Manoel Vilela

(defun factors (n)
  "Return a list of '(prime factor) for n
   (factors 100) => ((2 2) (5 2))
  "
  (loop for x from 2
        while (> n 1)
        when (= 0 (mod n x))
          collect (loop for c from 0
                        while (= 0 (mod n x))
                        do (setq n (/ n x))
                        finally (return (list x c)))))

(defun solution ()
  (loop for (p f) in (factors 600851475143) maximize p))

(format t "~a ~%"(solution))
```
assistant