Problem Statement

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.

Let's start with the solution:

DEFINE
  digit == "01234567" of;
  oct == "\n" [pop 7 >] [[8 div digit] dip cons] while swap digit swons.

0 [0 >=] [dup oct putchars succ] while pop.