(DEFUN POW(a i)
 (COND ((= a 0) 1)
       ((= i 1) a)
       (1 (* a (POW a (- i 1))) )
 )
)
 
 
(DEFUN SUM_i(a b i)
 (COND ((NULL a) 0)
       ((NULL b) 0)
       (1 (+ (/ (+ (POW (CAR a) i) (POW (CAR b) i)) (+ (CAR a) (CAR b))) (SUM_i (CDR a) (CDR b) (+ i 1) )) )
 )
)
 
(DEFUN SUM(a b)
  ( SUM_i a b 1)
)
 
(PRINT (SUM '(1 2 5) '(3 4 6)))