(define (sum n)
  (if (= n 1)
      1
      (+ n (sum (- n 1)))))

(let ((n (read)))
      (display (sum n)))