(define (build-list n) (if (zero? n) '() (cons n (build-list (- n 1))))) (define (foldl f init lst) (if (null? lst) init (foldl f (f init (car lst)) (cdr lst)))) (define l (build-list 10)) (foldl + 0 l) (foldl * 1 l) (display "Done!")
Eval (cmd/ctrl+enter)

Result:

Stdout:

Source Code