var n,i:integer;
st:string;
begin
readln(n);(*nhap so n*)
str(n,st);(*doi so n ra xau*)
for i:=length(st) downto 1 do
write(st[i]);
readln;
end.
xong rui ngan gon hok