+ BRANCH 0,p_evaluate_stream_END
+ dq p_2dup ; ( -- chars* n chars* n )
+ dq p_this_word ; ( -- chars* n chars* n p )
+ dq p_2put ; ( -- chars* n )
+ dq p_find ; ( -- [ chars* n 0 ]/[ tfa ] )
+ dq p_dup ; ( -- [ chars* n 0 0 ]/[ tfa tfa ] )
+ BRANCH 0,p_evaluate_stream_NOTWORD ; ( -- chars* n tfa/0 )
+ dq p_execute ; ( -- chars* n tfa/0 )
+ BRANCH ,p_evaluate_stream_LOOP