Forth exercise done