Luhn - Common Lisp | SlaveCode