Task

Produce a sequential count in octal,   starting at zero,   and using an increment of a one for each consecutive number.

Each number should appear on a single line,   and the program should count until terminated,   or until the maximum value of the numeric type in use is reached.



Related task

   Integer sequence   is a similar task without the use of octal numbers.


go =>
  gen(N),
  println(to_oct_string(N)),
  fail.
 
gen(I) :-
  gen(0, I).
gen(I, I).
gen(I, J) :-
  I2 is I + 1,
  gen(I2, J).