(define (better-sum a)
(reduce-left (lambda (x y) (+ (get-x x) (get-x y))) a)
(reduce-left (lambda (x y) (+ (car x) (car y))) 0 a)
)
