PLEASE solve using R5RS Scheme language. Do not solve unless you know Scheme.

Write a function called forAll that satisfies the following interaction. The function forAll should create a closure with the specified parameters and the required behaviour.

 (define my_iterator (forAll 1 5)) (my_iterator + 0)  15 (my_iterator * 1)  120 (my_iterator (lambda (x y) (display x)(display " ")) "")  1 2 3 4 5 

The forAll procedure takes two arguments: the start and end values of a series, and returns a function (a closure, called my_iterator in the examples above). The resulting closure expects two new arguments: an operation to be applied to all elements in the series, as well as an initial value to start the operations. The operation passed to the closure (+, *, and lambda in the examples above), should expect two arguments as well: an element from the series and the running total. Tip: It may help to design the function without the closure first, and separate the parts later.