; the answer in p99/p06 is better
(func palindrome? (str)
    (branch
        ((<= (length str) 1) #true)
        ((eq? (first str) (last str))
            (palindrome? (reverse (rest (reverse (rest str))))))
        (#true #false)))