#!/usr/bin/perl -w

$chaine = <STDIN>;

chomp $chaine;

if ($chaine eq reverse($chaine))
{
    print "$chaine est un palindrome.\n";
}
else
{
    print "$chaine n'est pas un palindrome.\n";
}