DOES>
* DOES> ( -- pfa )

does twist the last >CREATE word to carry
the (DOES>) runtime. That way, using the
word will execute the code-piece following >DOES>
where the pfa of the word is already on stack.
(note: FIG option will leave pfa+cell since does-rt is stored in pfa)

core compiling primitive