- dq p_dup, p_gtR ; ( -- char* n ) [ n ]
- dq p_dup, p_literal, 8, p_plus ; ( -- char* n n+8 )
- dq p_temp ; ( -- char* n addr )
- dq p_2dup, p_put
- dq p_literal, 8, p_plus ; ( -- char* n addr+8 ) [ n ]
- dq p_dup, p_gtR ; ( -- char* n addr+8 ) [ n addr+8 ]
- dq p_swap, p_strncpy ; ( -- ) [ n addr+8 ]
- dq p_Rgt, p_Rgt ; ( -- addr+8 n ) [ ]
- dq p_return