(define (accumulate-right f init lst) (if (null? lst) init (f (car lst) (accumulate-right f init (cdr lst)))))