(define reverse-list
(lambda (s)
(if (null? s)
'()
(append (reverse-list (cdr s)) (list (car s))))))
(newline)
(display (reverse-list '(1 2 3 4)))
(define reverse-list
(lambda (s)
(if (null? s)
'()
(append (reverse-list (cdr s)) (list (car s))))))
(newline)
(display (reverse-list '(1 2 3 4)))