var s, t, res: string;
i, j: integer;
begin
  readln(s);
  s := s + ' ';
  t := '';
  res := '';
  for i := 1 to length(s) do begin
    if ((ord('А') <= ord(s[i])) and (ord(s[i]) <= ord('Я'))) or
    ((ord('а') <= ord(s[i])) and (ord(s[i]) <= ord('я'))) then
      t := t + s[i]
    else begin
      if length(t) > 0 then
        for j := length(t) downto 1 do
          res := res + t[j];
      res := res + s[i];
      t := '';
    end;
  end;
  writeln(res);
end.