(use numbers)
(use srfi-13)

(define (sum-of-exponents n lim)
  (if
    (> n lim)
      0
      (+ (expt n n) (sum-of-exponents (+ n 1) lim))))

;(print (string-take-right (number->string (sum-of-exponents 1)) 10))
(print (number->string (sum-of-exponents 1 1000)))