; 5.12.1

(define (rec-sum l1 l2)
  (cond
    ((null? l1)
     (if (null? l2) '() l2))
    ((null? l2)
     l1)
    (else (cons (+ (car l1) (car l2))
                (rec-sum (cdr l1) (cdr l2))))))

(rec-sum '(1 2 3) '(4 5 6))