(define add-lists
       (lambda (l1 l2)
	 (if (null? l1)
	     l2
	     (cons (+ (car l1) (car l2)) (add-lists (cdr l1) (cdr l2))))))