var s : string; i, j, l...

var
  s : string;
  i, j, len, k : integer;
begin
  readln(s);
  len := length(s);
  for i:=1 to len do
    if (ord(s[i]) >= ord('A')) and (ord(s[i]) <= ord('Z')) then
      s := chr(ord(s[i]) - ord('A') + ord('a'));
  for i:=1 to len do
    if (ord(s[i]) < ord('X')) then
      s := chr(ord(s[i]) + 3)
    else
      s := chr(ord(s[i]) - 23);
  write(s);
  write('/');
  for j:=1 to 3 do
  begin
    i := 1;
    while i <= len - j do
    begin
      s[i] := s[i + j];
      i := i + j;
    end;
  end;
  writeln(s);
end.