programacion en prolog suma de lista de numeros con recursividad

_____________________________________________

(defun lista (a b c d e)
(setq li (list a b c d e))
(setq suma 0)
(setq i 0)
(while (< i 5)
(setq  val (nth i li)
)

(setq i (+ i 1))
(setq suma(+ suma val))
)
____________________________________________