$ include "seed7_05.s7i";
  include "bigint.s7i";

  const proc: main is func
    local
      var bigInteger: number is 1_;
    begin
      repeat
        writeln(number);
        incr(number);
      until FALSE;
    end func;