program reverse(input,output);
type list=^node;
node=record
      elem: char;
      next: list
     end;

var p,L: list; c: char;
begin
  L:=nil;
  read(c);
  while(c<>'.') do
    begin
      new(p);
      p^.elem:=c;
      p^.next:=L;
      L:=p;
      read(c);
    end;
  while(L<>nil) do
    begin
      write(L^.elem);
      L:=L^.next;
    end;
  writeln;
end.