Qual o resultado da execução do seguinte programa escrito em LISP?

(defun segredo (var1 var2)
(cond ((null var1) 0)
((null var2) 0)
(t (+ (* (car var1) (car var2))
(segredo (cdr var1) (cdr var2))))))
(segredo '(1 2 1) '(4 2 3))