(define (revert lst) (if (null? lst) lst (append (revert (cdr lst)) (list (car lst))))) (revert '(1 2 3 4 5 6 7)) (revert '("Is" "Scheme" "cool" "?"))