const NL=CHR(10);
var CH: CHAR;
begin
  WRITE(OUT,'PASCAL LIVES!!!',NL,'#');
  BREAK(OUT);
  repeat READ(IN,CH); WRITE(OUT,CH) until CH=NL;
end.