  valf:=false;
  run1:=run1+1;
  run2:=0;
  white:=whitespace;
{$undef get} {$define get(X) begin read(infile,X); tempint:=GetIOResult; Readln(infile); SetInOutRes(tempint) end}
{$undef get2}{$define get2(X,Y) begin read(infile,X); tempint:=GetIOResult; read(infile,Y); if GetIOResult<>0 then begin readln(infile); err('unexpected I/O error in ReadLn') end; readln(infile); SetInOutRes(tempint) end}
  TestAll;
{$if not defined (Classic) and not defined (Borland)}
{$undef get} {$define get(X) begin readln(infile,instr);readstr(instr,X) end}
{$undef get2}{$define get2(X,Y) begin readln(infile,instr);readstr(instr,X,Y) end}
  TestAll;
{$undef get} {$define get(X) begin readln(infile,inbuf);readstr(inbuf,X) end}
{$undef get2}{$define get2(X,Y) begin readln(infile,inbuf);readstr(inbuf,X,Y) end}
  TestAll;
{$endif}
{$ifndef Standard}
  white:=false;
{$undef get} {$define get(X) begin readln(infile,instr);val(instr,X,tempint);SetInOutRes(tempint) end}
{$undef get2}{$define get2(X,Y)
                begin
                  readln(infile,instr);
                  val(instr,X,tempint2);
                  val(Copy(instr,1,tempint2-1),X,tempint);SetInOutRes(tempint);
                  if GetInOutRes=0 then val(Copy(instr,tempint2,Length(instr)-tempint2+1),Y,tempint);SetInOutRes(tempint)
                end}
  valf:=true;
  TestOnlyNum;
{$endif}
