1 FETCH
2+ ,
2 entry-constant
2.1? SET ( ptr-ref )
2.2? TITLE ( char-expr )
3 ;