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