program z1653;
uses crt;
var i:byte;
s,p:string;
BEGIN
write ( 'text:');
readln(s);
p:='';
for i:=1 to length(s) do
p:=s[i]+p;
s:=s+p;
writeln(s);
END.