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