PROGRAM EnCrypt (Input,Output);
(* Encrypt standard input *)
VAR
   Ch : Char;
   Previous : Integer;

BEGIN
   Previous := 0;
   WHILE NOT EOF DO
    Begin
      Read(Ch);
      Write (Chr (Ord(Ch) + Previous));
      Previous := Ord(Ch);
    End;
END.