(define suml
  (lambda (L)
    (if (null? (cdr L))
      (car L)
      (+ (car L) (suml (cdr L)))
    )
  )
)

(suml (list (1 2 3)))