Forth Examples working