(defun sum (N)
  (cond ((= N 1) 1)
	(t (+ (- (* 2 N) 1) (sum (- N 1))))))