$CONSTANT
* $CONSTANT ( "name" $: a$ -- )

Create a definition for "name" with the execution semantics
"name" execution: ($: -- a$ )
It is assumed that the input string resides as a measured,

unchanging string outside of string space.
"string-constant"
For example:
   $" This is a sample string." $constant sample$

FORTH/DEF dstrings defining primitive