DOER DO DOES>
DEFER word ( -- )  
<PFE-SMART>
create a new word with ((DEFER))-semantics 
 simulate:
   : DEFER  CREATE 0, DOES> ( the ((DEFER)) runtime ) 
      @ ?DUP IF EXECUTE THEN ;
declare as "DEFER deferword"
and set as "['] executionword TO deferword"

reference: p4_defer in ../src/lpf83.c:0386, export CO DOER