program kodolo;

var f,g:text;
    b1,b2:byte;
    c1,c2:char;

begin
   assign(f,'a.dat');
   assign(g,'tmp');
   reset(f);
   rewrite(g);
   while not eof(f) do
   begin
     readln(f,b1,b2,c1,c2);
     writeln(g,b1,' ',b2,' ',c2,'->',chr(ord(c2)+b1+b2));
   end;
   close(f);
   close(g);
   erase(f);
   rename(g,'a.dat');
   readln
end.