(define (rev s)
(if (list? s)
(reverse (map rev s))
s))