var a,b:string;
c,i:longint;
begin
read(a);
c:=length(a);
for i:=c downto 1 do
b:=b+a[i];
if a=b then write('Y')
       else write('N');
       end.
/**************************************************************
	Problem: 1629
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/