PROGRAM DeCrypt (Input,Output);
(* Decrypt standard input *)
VAR
   Ch, Temp : Char;
   Previous : Integer;

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