     lambda-rewrite first ;
 
 : FUNCTOR: (FUNCTOR:) define ; parsing
-
-: APPLY: scan-word scan-word execute swap '[ _ execute ] each ; parsing


: IS [ dup search [ ] [ no-word ] ?if ] (INTERPOLATE) ; parsing

: DEFINES [ in get create ] (INTERPOLATE) ; parsing

DEFER: ;FUNCTOR delimiter



: define* ( word def effect -- ) pick set-word define-declared ;

: DEFINE* ( accum -- accum ) effect get parsed \ define* parsed ;

: `TUPLE:
    scan-param parsed
