Play audio slide show -- Keyboard shortcut: 'x'  Back to slide -- Keyboard shortcut: 'u'              Annotated program -- Keyboard shortcut: 't'      reduction.scm - The function accumulate-right.Lecture 4 - slide 17 : 34
Program 1

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