(define sum 0)
(define (sum-up number) 
       
    (define (sum-up-total number sum) 
        (cond
            ((eq? number '0) (display sum)
            (else
                  (sum-up-total (- number 1) (+ sum 1))
            )
	)
    )
)