elvistcb: yes there is:
(define (sum-of-squares nums) (fold-left + (map sqr nums)))
(sum-of-squares '(0 2 5 8))