On Dec 1, 2012, at 6:22 AM, Mark H Weaver <mhw@netris.org> wrote:

>  (let ((modulus (expt 10 10)))
>    (define (last10 n) (modulo n modulus))
>    (let loop ((n 1) (sum 0))
>      (if (> n 1000)
>          (last10 sum)
>          (let* ((term (expt n n))
>                 (sum (+ sum term)))
>            (format #t "~4@a ~10@a ~10@a~%" n (last10 term) (last10 sum))
>            (loop (+ n 1) sum)))))