Forth example from milestone 03