program BACK { www.merlyn.demon.co.uk  >= 2001-11-16
  Filter.  Reverses the characters within each input line } ;

var S, T : string ; J, L : byte ;

BEGIN ;
while not EoF do begin Readln(S) ; L := Length(S) ;
  for J := 1 to L do T[J] := S[L-J+1] ;
  T[0] := S[0] ;
  Writeln(T) end ;
END.