Что делает этот код схемы?

Question

Почему мы используем tailr и headr? Я не могу понять.

(define (foo lst) 
    (cond 
    ((not (list? lst)) lst) 
    ((null? lst) lst) 
    (else (let* ((tail (cdr lst)) 
       (head (car lst)) 
       (tailr (foo tail)) 
       (headr (foo head))) 
      (append tailr (list headr)))))) 

Answer 1

Это эквивалентно:

(define (reverse-nested lst) 
    (cond ((not (pair? lst)) lst) 
     (else (reverse (map reverse-nested lst)))))