PROGRAM TESTIP(INPUT,OUTPUT);
VAR N:INTEGER;
BEGIN
WHILE NOT EOF DO
  BEGIN
  OUTPUT^:=INPUT^;
  PUT(OUTPUT);
  GET(INPUT)
  END;
WRITELN('BYE');
END.