s-99-06


 (define palindrome? 
   (lambda (xs) 
     (equal? xs (reverse xs)))) 
  
 (palindrome? '(x a m a x)) ; => #t 

For reverse see S-99-05