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

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

)







(defun somalista (L)

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

)

(print (somalista (list 4)))