// Immediately invoked DIC(INVOCA FVNCTIO (x) VT { REDI (x + I) } (V)) // From an array DESIGNA fns VT [FVNCTIO (x) VT { REDI (x + I) }] DIC(INVOCA fns[I] (V)) // Passing a named function as an argument DEFINI apply (f, x) VT { REDI (INVOCA f (x)) } DEFINI sqr (x) VT { REDI (x * x) } DIC(INVOCA apply (sqr, IV))