USING: kernel sequences ;
: palindrome? ( str -- ? ) dup reverse = ;