var a,b,c,k: string;
   i,l,m:integer;
begin
b:=' ';
read(a);
l:=length(a);
for i:=1 to l do begin
if a[i]<>b then c:=c+a[i];
end;
writeln(c);
m:=length(c);
for i:=m downto 1 do begin
k:=k+c[i];
end;
writeln(k);
if c=k then writeln ('является палиндромом') else writeln ('не является палиндромом');
end.