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