Welcome to the CHICKEN Scheme pasting service

(define (palindrome? input)
  (string=? input (string-reverse input)))

(define (faster-palindrome? input)
  (cond
   ((string-null? input) #t)
   (else
    (do ((i 0 (add1 i))
         (j   (sub1 (string-length input)) (sub1 j)))
        ((or (not (char=? (string-ref input i) (string-ref input j)))
             (>= i j))
         (<= j i))))))