Forth assignment, incomplete

Sh*t works.