{$IOCHECKS OFF}
program main;
var
   Count: Integer;
begin
   Count := 0;
   while (true) do
   begin
      Inc(Count);
      Writeln(Count);
   end;
end.

// fpc test.pas -dDEBUG -Ci -Co -CO -Cr -CR -Ct -O- -g -gt -gl -gh -Sa -OoDFA -veiwnhb -FE../bin/ -Fulib -Filib && ../bin/test	

// rm -rf ../bin/* && fpc test.pas -dRELEASE -O3 -OoLOOPUNROLL -OoREGVAR -OoSTACKFRAME -OoPEEPHOLE -OoASMCSE -OoTAILREC -OWSYMBOLLIVENESS -OoDFA -Si -Xs- -XS -XX -B -v0einf -FW../bin/opt-feedback -FE../bin/ -Fulib -Filib 2>&1 && fpc test.pas -a -al -dRELEASE -O3 -OoLOOPUNROLL -OoREGVAR -OoSTACKFRAME -OoPEEPHOLE -OoASMCSE -OoTAILREC -OwSYMBOLLIVENESS -OoDFA -Si -Xs  -XS -XX -B -v0einf -Fw../bin/opt-feedback -FE../bin/ -Fulib -Filib 2>&1 && rm -f ../bin/*.o ../bin/*.ppu && time ../bin/test