(define palindrome? (lambda (xs) (equal? xs (reverse xs)))) (palindrome? '(x a m a x)) ; => #t
For reverse see S-99-05