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