- dq p_2dup ; ( -- chars* n chars* n )
- dq p_find ; ( -- chars* n tfa/0 )
- dq p_dup ; ( -- chars* n tfa/0 tfa/0 )
- BRANCH 0,p_evaluate_stream_NOTWORD ; ( -- chars* n tfa/0 )
- dq p_execute ; ( -- chars* n tfa/0 )
+ dq p_find ; ( -- [ chars* n 0 ]/[ tfa ] )
+ dq p_dup ; ( -- [ chars* n 0 0 ]/[ tfa tfa ] )
+ BRANCH 0,p_evaluate_stream_NOTWORD ; branch if 0 on TOP
+ dq p_execute ; consumes tfa