can you explain how to do this question

4. (10 pts) Explain what the following Scheme code is doing (define (make-stream n f) (define (next m) (next n)) (define head car) (define (tail stream) ((cdr stream))) (define (nth stream n) (if (- n 0) (head stream) (nth (tail stream) ( n 1)))) (define even (make-stream 0 (lambda (n) (+ n 2)))) Try it out in Scheme48 and check the values of the following expressions: even (head even) (head (tail even)) (head (tail (tail even)) (head (tail (tail (tail even)) )) (nth even 5) (nth even 1000) Explain what the lambda in make-stream is good for, where this function is called, and how tail and nth work. To see what's going on, trace manually through the execution of (head (tail (tail even))