original gforth code