var a,k, S:Integer;
begin
readln(a);
S:=0;
for k:=1 to 4 do begin
S:= S*10+ (a mod 10);
a:=a div 10;
end;
writeln(S);
end.