;; Project Euler, Problem 48
;; jmh

(defun self-power-series (x)
	(if (= x 0) 0
	(+ (expt x x) (self-power-series (- x 1)))))

(self-power-series 1000)