Forth example