FORTH code snippets