(defparameter *n* 1000000)
(print (loop for i from 1 to *n* sum i))
(print (* *n* (+ 1 *n*) 1/2))