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 ] )
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 ] )