#!/usr/local/bin/sbcl --script
(defun enigma (L)

(if (null L) () (append (enigma (cdr L)) (list (car L))))

)







(defun somalista (L)

(if (null L) 0 (+ (car L) (somalista (cdr L))))

)

(defun divisores (N C L)

(if (null L) nil 

()

)

)

(print (mod 10 2))