: INTERPRET BEGIN WORD (find) NOT IF (parse) ELSE EXECUTE THEN C<? NOT IF LIT< (ok) (find) IF EXECUTE THEN THEN AGAIN ;