simple Forth closure