Forth in 512 bytes, an attempt