(define (list-sum ls)
    (if (> 2 (length ls))
        (car ls)
        (+ (car ls)(list-sum (cdr ls)))
    )
)

($ print $ list-sum (iota (read) 1))