#!/usr/bin/perl
# Palindrome.pl
$x=<STDIN>;
chomp($x);
$y=reverse($x);
if($x eq $y)
{
  print "Palindrome";
}