CHAR
* CHAR ( 'word' -- value )

return the (ascii-)value of the following word's
first character.

core ordinary primitive