(define (sumton n)
  (if (= n 1)
      1
      (+ n (sumton (- n 1)))))
(define (sumton2 n ans)
  (if (= n 1)
      (+ ans 1)
      (sumton2 (- n 1) (+ ans n))))

(define (sumton3-helper n ans)
  (if (= n 1)
      (+ ans 1)
      (sumton2 (- n 1) (+ ans n))))

(define (sumton3 n)
  (sumton3-helper n 0))

(sumton 5)
(sumton2 5 0)