program number1;

{$APPTYPE CONSOLE}

var
i1,i,l,k,n:integer;
a:array[1..1000000] of char;
c:char;


begin
assign(input,'number.in');
reset(input);
assign(output,'number.out');
rewrite(output);
n:=0;
while not(eoln(input)) do begin
n:=n+1; read(input,c);
a[n]:=c;
end;
//for k:=1 to n do write(a[k]);     writeln;
l:=n div 2;

i:=1;
while i<l do begin
i1:=0;
while i+i1<=(i+l) div 2 do begin
c:=a[i+i1];
a[i+i1]:=a[l-i1];
a[l-i1]:=c;
i1:=i1+1 ;

end;
// for k:=1 to n do write(a[k]);   writeln;

 i1:=0;
while l+1+i1<=(l+1+n-i+1) div 2 do begin
c:=a[l+1+i1];
a[l+1+i1]:=a[n-i+1-i1];
a[n-i+1-i1]:=c;
i1:=i1+1
end;
//for k:=1 to n do write(a[k]);   writeln;


i:=i+1;

end;
for k:=1 to n do write(a[k]); writeln;


close(input);
close(output);

end.