USING: kernel sequences ;
IN: examples.strings

: palindrome ( s -- bool )
    dup reverse equal? ;