* TOUPPER ( c1 -- c2 ) convert a single character to upper case : TOUPPER >R _toupper ;
TOUPPER
( c1 -- c2 )
: TOUPPER >R _toupper ;
forth_usual ordinary primitive