Forth assignment, incomplete

More complete.