{$mode delphi}
program incbuild;
uses sysutils;
var 
  f: text;
  b: integer;
begin
  Assign(f, GetCurrentDir + {$ifdef unix}'/'{$else}'\'{$endif} + paramstr(1));
  Reset(f);
  Readln(f, b);
  Writeln('Build number: ',b); 
  CloseFile(f);
  inc(b);
  Rewrite(f);
  Writeln(f, b);
  CloseFile(f);
end.
