; linked list palindrome

(define (palindrome? strs)
  (let ((cs (string->list (apply string-append strs))))
    (equal? cs (reverse cs))))

(display (palindrome? '("a" "bcd" "ef" "g" "f" "ed" "c" "ba"))) (newline)
(display (palindrome? '("a" "bcd" "ef" "g" "f" "ed"     "ba"))) (newline)