program CTNU { www.merlyn.demon.co.uk >= 2001-09-10 } ;

{ StdIn, StdOut ;
  copies its own input, less any final CrLf, plus its own parameters.
  The first character of the parameter string, normally a space,
  will be ignored. }
type PString = ^String ;
var S : string ;

BEGIN ;

while not EoF do begin
 Readln(S) ; Write(S) ;
 if EoF then BREAK ;
 Writeln end ;

Write(Copy(PString(Ptr(PrefixSeg, $80))^, 2, 255)) ;
END.