>>107126633
(define (dot-product a b)
(fold + 0 (zip * a b)))