forth refactoring