{ Sum of the first n integers - gri 12 Aug 94 }

(setq sum
   (lambda (n)
      (cond
         ((<= n 0) 0)
         (t (+ n (sum (- n 1))))
      )
   )
)


{ Examples:

(sum 0)
(sum 10)
(sum 100)
(sum 1000)
(sum 0)
}