var nn : ++ dup @ 1+ swap ! ; : something ; initialise counter to 0 0 nn ! begin ; print 8 words to a line nn ++ nn 8 mod 0 = if cr fi again ;