(use srfi-1 numbers)
(print (fold (lambda (n s) (+ s (expt n n))) 0 (iota 1000 1)))